<%@LANGUAGE="VBSCRIPT"%> <% 'This is the "Remember Me" info from the Foundation Ultradev book pg. 219 If (Request.Form("remember") = "yes") then Response.Cookies("SpartanAlumni")("txt_email") = Request.Form("txt_email") Response.Cookies("SpartanAlumni")("txt_pass") = Request.Form("txt_pass") Response.Cookies("SpartanAlumni")("rememberme") = "yes" Response.Cookies("SpartanAlumni").Expires = date + 90 Else Response.Cookies("SpartanAlumni").Expires = date -1 End If %> <% set rsLogin = Server.CreateObject("ADODB.Recordset") rsLogin.ActiveConnection = MM_connAlumni_STRING rsLogin.Source = "SELECT id, email, pass, security FROM alumni" rsLogin.CursorType = 0 rsLogin.CursorLocation = 2 rsLogin.LockType = 3 rsLogin.Open() rsLogin_numRows = 0 %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString MM_valUsername=CStr(Request.Form("txt_email")) If MM_valUsername <> "" Then MM_fldUserAuthorization="security" MM_redirectLoginSuccess="alumni_home.asp" MM_redirectLoginFailed="alumni_login.asp?tryagain=true" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_connAlumni_STRING MM_rsUser.Source = "SELECT email, pass" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM alumni WHERE email='" & MM_valUsername &"' AND pass='" & CStr(Request.Form("txt_pass")) & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Alumni Login

Register here if you have not registered before.
Email Address:
 ">
Password:
 ">
Remember Me:
 CHECKED <% End If %> >
<%if (request.querystring("tryagain")) = "true" then %>

You have either entered an invalid email address/password or you have not registered yet.
Please click here to register.

<% end if %> <%if (request.querystring("accessdenied")) <> "" then %>

You have not been validated yet. A reminder email has been sent to the webmaster.
Thank You for your patience

<%end if%>

 

<% rsLogin.Close() %>