<%
Response.Expires=-1442
if Request.QueryString("login") = "false" then
Session("ID")=0
Session("User") = ""
Session("uid")=""
Session.Abandon
end if
if Session("ID") = 0 then
Response.Buffer=true
Dim Wrong
Wrong="Username/Password Not Found. Please re-enter."
if len(Request.Form("txtLogID")) > 0 then
Dim Rs
Set Rs = Server.CreateObject("ADODB.recordset")
msql = "select * from User where login='"&Request.Form("txtLogID")&"' and password='"&Request.Form("txtPassword")&"'"
rs.open msql,Cn,3,3,-1
if not rs.eof then
response.write (rs("level"))
end if
if(not rs.eof) then
Session("ID") = rs("level")
Session("User") = rs("login")
Session("uid")=rs("id")
if(rs("level"))= 1 then
response.redirect "admin.asp"
else
response.redirect "Studentservicesv2.asp"
end if
else
Wrong = "Login Name and Password is incorrect"
end if
end if
end if
%>
Argosy University Sarasota Campus
Sarasota Student Orientation