bsw2112
January 5th, 2004, 11:04 AM
here is a sample code using ASP
<%
dim objConn, objRS, SQL, coStr
SET objConn = SERVER.CreateObject("ADODB.Connection")
SET objRS = SERVER.CreateObject("ADODB.Recordset")
coStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
coStr = coStr & "DBQ=" & Server.MapPath("..\db\ecom.mdb") & ";"
objConn.Open(coStr)
sql = "SELECT * from customer where customer.lastname='" & Request.Form("lastname") & "' and customer.password='" & Request.Form("userpassword") & "'"
Set objRS = objConn.Execute(sql)
if objRS.EOF = true Then
Response.write("No such user in our system. Please try again <a href='login.html'>Back</a>")
else
Response.write("<H4>Welcome back " & objRS("firstname") & "</h4>")
end if
%>
the code establishes a connection to a database (access in this case)
dim objConn, objRS, SQL, coStr
SET objConn = SERVER.CreateObject("ADODB.Connection")
SET objRS = SERVER.CreateObject("ADODB.Recordset")
coStr = "DRIVER={Microsoft Access Driver (*.mdb)};"
coStr = coStr & "DBQ=" & Server.MapPath("..\db\ecom.mdb") & ";"
objConn.Open(coStr)
***********************************************
and opens a table called customer
and queries it for a particular last name and password
sql = "SELECT * from customer where customer.lastname='" & Request.Form("lastname") & "' and customer.password='" & Request.Form("userpassword") & "'"
Set objRS = objConn.Execute(sql)
it compares it to variables that were sent from a form on another page called login.html
on that form fields were called lastname and userpassword
*******************************************
if there is a match (the record set is not at end of file (objRS.EOF)
the welcome message is shown with proper user options
if there is no match, objRS.EOF = true
a warnimg message is shown "please try again etc.. and a link to the login page is displayed
if objRS.EOF = true Then
Response.write("No such user in our system. Please try again <a href='login.html'>Back</a>")
else
Response.write("<H4>Welcome back " & objRS("firstname") & "</h4>")
' more code would go here to give user options
end if
*******************************************
hope this helps a little
this is just one way of doing what you want
cheers
bsw