<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open ("Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\IIS\racinerailroad.com\Database\RRP.mdb; Password=romecorp1")
If Request.Form("submit").count>0 Then
username=Request.Form("username")
password=Request.Form("password")
sql="SELECT * FROM login WHERE username='" & username & "' AND password='" & password & "'"
'Response.Write(sql)
Set rs=conn.execute(sql)
If not(rs.BOF and rs.EOF) Then
Session("isLoggedin")=True
Response.Redirect("/Info/main.php")
Else
Session("isLoggedin")=False
msg="Incorrect Username or Password."
End if
rs.close
Set rs=Nothing
End if
conn.close
Set conn=Nothing
%>
Extranet - Login
<%=Msg %>
If you need login access to the Intranet site please
ask your supervisor to have an account created for you.
