<%
session("SID")=session.sessionID
if session("logged")="" then session("logged")=false
if not request("xUser") = "" and not request("xPassword") = "" then
dim cn,qry
set cn=server.CreateObject("ADODB.Connection")
cn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=G:\PleskVhosts\gdmig-VMSCONLINE.COM\httpdocs\access_db\Login.mdb"
qry = "SELECT Username, Password " & _
"FROM Login " & _
"WHERE Username='" & trim(request("xUser")) & "' " & _
" AND Password='" & trim(request("xPassword")) & "'"
set rs=cn.execute(qry)
if not rs.eof then
session("logged")=true
end if
end if
%>
VMSC | Vintage Modified Stock Car Racing