<!--#include file=conn.asp-->

<!--#include file=md5.asp-->

<%
if request("jleadd")="ok" then
username=replace(trim(request("username")),"'","¡®")
password=replace(trim(request("password")),"'","¡®")
set rs = Server.CreateObject("ADODB.RecordSet")
sql="select username,password from [admin] where username='"&username&"'" 
rs.open sql,conn,1,3
if not rs.eof or not rs.bof then
response.write "<li>£¡"
response.end
else
rs.addnew
rs("username")=username
rs("password")=md5(password)
rs.update
end if
rs.close
set rs=nothing
closedb
response.write "<li>£¡"
response.write "<meta http-equiv=refresh content=""1;URL=../index.asp"">"
response.end
end if
%>