<%
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Session("UserLoggedIn") = ""
If Request.Form("login") = "true" Then
CheckLogin
Else
ShowLogin
End If
Sub ShowLogin
%>
Phi Sigma Rho National Engineering Sorority
Please login to use this portion of the
site. For login information, please contact the
webmaster.
<%
End Sub
Sub CheckLogin
If LCase(Request.Form("username")) = "slate11" And LCase(Request.Form("userpwd")) = "nc13" Then
Session("UserLoggedIn") = "true"
Response.Redirect "sistersonly.asp"
Else
Response.Write("Login Failed.
