heres the link: http://cis001.rmu.edu/LocalUser/INFSHodnic...enter/login.asp
heres the code for my check login:
<% @LANGUAGE = "VBSCRIPT" %>
<%
<!--- Set Session variable --->
session("username") = request("username")
<!-- Declare Program variables -->
dim myConnection, myRecordSet, sqlString, filePath
dim strusername, strpassword
<!-- Create an istance of the ADO connectin Record Set Object -->
<!-- and assoicate them with the myConnection and myRecordSet variables -->
set myConnection = Server.CreateObject("ADODB.Connection")
set myRecordSet = Server.CreateObject("ADODB.RecordSet")
<!-- open the connection to the database -->
filePath = Server.MapPath("StudentCenter/student.mdb")
myConnection.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +filePath)
<!-- Collect username and password from login.asp form -->
strusername = Request.Form("username")
strpassword = Request.Form("password")
<!-- Create a SQL string to Select all from the user table searching for username -->
sqlString = "Select * from tbluser where username = '" & strusername & "'"
<!-- execute the sql string --->
set myRecordSet = myConnection.Execute(sqlString)
If myRecordSet.eof then ' Username not found
Response.Redirect "login.asp?WrongUser=True" ' - Username wrong
ElseIf UCase(myRecordSet("password")) <> UCase(strpassword) Then
Response.Redirect "login.asp?WrongPW=True" ' - Username OK; password No
Else
Response.Redirect ("menuforregisteredusers.asp") ' - successful login
End If
<!--- close the recordset and the connection --->
myRecordSet.Close
myConnection.Close
Set myRecordSet = Nothing
%>
THANKS!