<%@ Language=VBScript %>
<%Option Explicit%>
<%'Include ADO constants include file for VBScript%>
<%'Include Data Connection%>
<%
'open data connection
Call OpenConn()
%>
<%'Include Utility Scripts%>
<%
'VALIDATE USER ACCESS AND GET ADMIN MODULE ACCESS INFO
'dim intUserId - The intUserId variable is defined in the common_inc.asp file.
dim strSQLadminAccess
dim rsAdminAccess
dim strUserName
dim strPassword
dim strLocation
strUserName = Trim(Request.Form("txtUsername"))
strPassword = Trim(Request.Form("txtPassword"))
strLocation = Trim(Request.Form("txtLocation"))
If strLocation = "" Then
strLocation = "/admin/default.asp"
End If
intUserId = GetUserId(strUserName, strPassword)
If intUserId = 0 Then
%>
Vitesse :: Administration Centre ::
