Login

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\northridgecoop.net\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 User ID/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 User ID/password combination is incorrect

<%End If End If%>