<%@ Language=VBScript %>
<% Response.Buffer = True %>
<% Set DB = Server.CreateObject("ADODB.Connection")
DB.Open aCstrDBConn
%>
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
aVstrName = Request.Form("aEFstrName")
aVstrPass = Request.Form("aEFstrPass")
aVstrErr = ""
If (aVstrName = "") OR (aVstrPass="") Then
aVstrErr = "You forget to enter your Identification"
Else
aVsql = "SELECT JOUEUR.JOUEUR_NO, JOUEUR.JOUEUR_NICK, JOUEUR.JOUEUR_PASS, " _
& "ADMIN.GRP_NO, ADMIN.ADM_TYPE, ADMIN.ADM_VER " _
& "FROM JOUEUR, ADMIN " _
& "WHERE JOUEUR.JOUEUR_NO = ADMIN.JOUEUR_NO " _
& "AND (JOUEUR.JOUEUR_NICK LIKE '" & aVstrName & "') " _
& "AND (JOUEUR.JOUEUR_PASS LIKE '" & aVstrPass & "')"
Set aRqAdmin = DB.Execute(aVsql, ,adCmdText)
If aRqAdmin.Eof Then
aStrErr = "Sorry your identification whas not identified " _
& "please retry or you have no right to enter here"
Else
Session("aCstafOk") = True
Session("aCstafNo") = aRqAdmin("JOUEUR_NO")
Session("aCstafVer") = aRqAdmin("ADM_VER")
Session("aCstafTyp") = aRqAdmin("ADM_TYPE")
Session("aCstafGrp") = aRqAdmin("GRP_NO")
End If
End If
End If
%>
<% If Not Session("aCstafOk") Then %>
