%Option Explicit
Response.Buffer = True
Dim HasError, ErrorMessage
'// SET VAR FOR ERROR MESSAGE PASSED FROM LOGIN
ErrorMessage = Request("error")
'// PREVENT BOOKMARK... MUST CHECK STATUS TODAY FOR LINK TO BE VALID
If CDate(Request("dt")) <> Date() Then
Response.Redirect("studentlogin.asp?error=Please+login+to+access+your+account.")
End If
%>