%
if request.form("Submit") = "Send me my Password" then
if request.form("registration_no")<>"" and request.form("userid")<>"" then
set rs = server.CreateObject("ADODB.recordset")
strsql = "select * from subscriber where userid = '" & trim(request.form("userid")) & "' and registration_no = '" & trim(request.form("registration_no")) & "'"
rs.open strsql , conn , 3, 1
if not rs.eof then
strsql = "insert into logs (userid,ipaddress,datein,timein) "
strsql = strsql & "values('" & trim(request.form("userid")) & "', '"
strsql = strsql & request.ServerVariables("REMOTE_HOST") & "','" & date() & "','" & time() & "')"
conn.execute(strsql)
session("username") = trim(request.form("userid"))
session("timein") = time()
url = "contingent/" & request.form("contingent") & "/"
response.redirect url
else
errmsg = "Invalid Login"
end if
else
errmsg = "Invalid Login"
end if
end if
%>
log-in e-relocation enterAsia Information Services Pte Ltd