<%@LANGUAGE="VBSCRIPT"%>
<%
set dele_login = Server.CreateObject("ADODB.Recordset")
dele_login.ActiveConnection = MM_dele_login_STRING
dele_login.Source = "SELECT * FROM security"
dele_login.CursorType = 0
dele_login.CursorLocation = 2
dele_login.LockType = 3
dele_login.Open()
dele_login_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("txtUsername"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="control.asp"
MM_redirectLoginFailed="login_fail.htm"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_dele_login_STRING
MM_rsUser.Source = "SELECT Password, UserName"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM security WHERE Password='" & MM_valUsername &"' AND UserName='" & CStr(Request.Form("txtPassword")) & "'"
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 true 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
%>
Eurocomp - Delegate Login
Delegate Administration Centre Login Page
For administrative, billing or course scheduling assistance, please click on the button below and be ready to enter
your username and password for the Delegate Administration Centre:
