<%
if request.querystring("btnLogin") = "Login" then
strUserName = request.querystring("strUserName")
SeedVal = request.querystring("SeedVal")
combin = request.querystring("combin")
s = "SELECT * From tblUser WHERE strUserName = '" & strUserName & "'"
set rst = cn.execute(s)
if not rst.eof then
strDatabasePassword = md5(rst("strPW") & SeedVal)
response.write md5(strUserName)
response.write " "
response.write combin
response.write " "
response.write strDatabasePassword
' response.end
if ((combin = strDatabasePassword) AND (strDatabasePassword <> "")) then
response.cookies("ckyUserID") = rst("UserID") & "|" & rst("lngType")
response.redirect "home.asp"
end if
end if
else
Seed = md5(time)
end if
%>
<!--#include file="title.htm"-->