<%@ Language=VBScript %>
<% Option Explicit %>
<% response.expires = -1
response.cachecontrol = "private"
response.AddHeader "Pragma", "no-cache"
response.AddHeader "cache-control", "no-store"
%>
<% Response.Buffer = True %>
<% If Request.Form("Submitted")="login" Then
Dim objConn, objRS, strSQL, strFailed
Set objConn=Server.CreateObject("ADODB.Connection")
strConnect="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(".") & "/LoginInfo.mdb"
objConn.Open strConnect
strSQL = "SELECT * from liste Where Username='" & Request.Form("Username") & "'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
If objRS.EOF Then
strFailed="Invalid Username"
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn=Nothing
Else
If objRS.Fields("Password")<> Request.Form("Password") Then
strFailed="Invalid Password"
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn=Nothing
Else
Session("ValidUser") = "true"
objRS.Close
Set objRS=Nothing
objConn.Close
Set objConn=Nothing
Response.Redirect "action.asp"
End if
End if
End if
%>
Members Area
If you are member but you don't have
your ID and password please contact Gavin
Humphreys or Shahrokh Khanizadeh.