% if Request.ServerVariables("REQUEST_METHOD")="POST" then sql="Select * from Results where user='" & Request.Form("username") & "' AND password='" & Request.Form("password") & "'" set checklogin=server.CreateObject("ADODB.Recordset") checklogin.LockType=3 checklogin.CursorType=3 checklogin.Open sql,conn Session("Message") = "" if checklogin.RecordCount >= 1 then memStatus = checklogin("Status") expdate = checklogin("ExpirationDate") session("uid")= checklogin("user") checklogin.Close set checklogin=nothing conn.close set conn=nothing if session("uid")= "admin" then Response.Redirect("dbindex.htm") else Response.Redirect("MemberPage.asp?username=" & session("uid")) end if else Response.Write("
|
|
U.S.
Micro-Solutions, Inc. ® 1996-2007 All Rights Reserved
Designed &
Maintained by |