<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Validate request to log in to this site.
MM_valUsername=CStr(Request.Form("txtUsername"))
If MM_valUsername <> "" Then
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_website_STRING
MM_rsUser.Source = "SELECT UserName, UserPassword, AccountID FROM website_users WHERE UserName='" & Replace(MM_valUsername,"'","''") &"' AND UserPassword='" & Replace(Request.Form("txtUserPassword"),"'","''") & "'"
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
Session("MM_UserID") = (MM_rsUser.Fields.Item("AccountID").Value)
Session("MM_UserAuthorization") = "2"
MM_rsUser.Close
Response.Redirect("./default.asp")
End If
MM_rsUser.Close
End If
%>
Beard Extranet - Labour Agency login