Welcome
<%response.buffer=true
'*****************************
set conn = server.createobject("ADODB.Connection")
'*********************************************
'adjust the next line to point to the location of the classylogin database
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Inetpub\vhosts\oakcenterhomes.com\db\classylogin.mdb;"
'conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("http://www.oakcenterhomes.com/db/classylogin.mdb;")
'**************************************
conn.open
response.write Session("Auth")
IF Session("Auth") = "Yes" then
sql2="SELECT * from tblAuth WHERE userName = '"&session("User")&"'"
set rs2=conn.execute(sql2)
response.redirect rs2("direction")
end if%> please login
<%If request.querystring("action")="" AND Session("Auth") <> "Yes" then
cHour=Hour(Now)
If cHour <12 then
greeting = "Good Morning"
Else If cHour <18 then
greeting = "Good Afternoon"
Else
greeting = "Good Evening"
End If
End If
response.write greeting
%>
<%End If%>
<%If Session("Auth")<>"Yes" and request("action") > "" then%>
<% Login=request.form("User")
Password=request.form("Password")
sql="SELECT * from tblAuth WHERE UserName='"&Login&"' ORDER BY UserName"
set rs=conn.execute(sql)
If rs.eof AND rs.bof then%>
I'm sorry. That userid/password combination is incorrect
<%Else
If rs("UserPassword") = Password then
Session("Auth") = "Yes"
Session("User") = rs("UserName")
response.redirect rs("direction")
End If
%>
I'm sorry. That userid/password combination is incorrect
