<%@LANGUAGE="VBSCRIPT"%> <% Dim rsLogin__prmUsername rsLogin__prmUsername = "0" if(Request.Form("Username") <> "") then rsLogin__prmUsername = Request.Form("Username") Dim rsLogin__prmPassword rsLogin__prmPassword = "0" if(Request.Form("Password") <> "") then rsLogin__prmPassword = Request.Form("Password") %> <% Dim DataConn, rsLogin, Query Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open "Data Source=" & Server.Mappath("../Connections/active.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" Set rsLogin = Server.CreateObject("ADODB.Recordset") Query = "SELECT * FROM Profiles WHERE Username = '" + Replace(rsLogin__prmUsername, "'", "''") + "' AND Password = '" + Replace(rsLogin__prmPassword, "'", "''") + "'" rsLogin.Open Query, DataConn, adLockOptimistic %> <% Dim LogindFailed If NOT rsLogin.EOF Then Session("sLogin") = (rsLogin.Fields.Item("Username").Value) If Request.Form("Remember") = "True" Then Response.Cookies("cRemember").Expires = Date() + 365 Response.Cookies("cUsername").Expires = Date() + 365 Response.Cookies("cPassword").Expires = Date() + 365 Response.Cookies("cRemember") = "1" Response.Cookies("cUsername") = Request.Form("Username") Response.Cookies("cPassword") = Request.Form("Password") Else Response.Cookies("cRemember").Expires = Date() - 1 Response.Cookies("cUsername").Expires = Date() - 1 Response.Cookies("cPassword").Expires = Date() - 1 End If If "tts" = rsLogin.Fields.Item("Username").Value Then Response.Redirect("profile.asp") Session("Username") = "" Else Session("Username") = rsLogin.Fields.Item("Username").Value Response.Redirect("assessment.asp") End If End If If Request.ServerVariables("HTTP_METHOD") = "POST" Then Loginfailed = "True" Session("sLogin") = "" If NOT ForgotUser = "" Then LoginFailed = FALSE End If End If %>

Username	" size="20">
Password	" size="20">
	<% If LoginFailed = "True" Then %>Login is incorrect<%End If%>
<%= Request.Form("test") %>