<% Response.Expires = -1000 'Makes the browser not cache this page Response.Buffer = True 'Buffers the content so our Response.Redirect will work %> My Studyarea .NET
Student Login
<% Dim Error_Msg login = Request.Form("login") If login = "login_again" Then Session("StudentLoggedIn") = "" ShowLogin Else If Session("StudentLoggedIn") = "true" Then AlreadyLoggedIn Else If login = "true" Then CheckLogin Else ShowLogin End If End If End If Sub ShowLogin %>

Registered users may enter a password here and view additional pages specifically for them.

 

Password:

 

 

 

Please type in password and click on the Enter button to proceed.

 
<% Response.Write("
" & Error_Msg & "
") %>

 

Forgotten your password? Contact us at shem@push-button.co.uk to ask for a reminder.

<% End Sub Sub AlreadyLoggedIn Response.Redirect "http://www.push-button.co.uk/mystudyarea/area-student.htm" End Sub Sub CheckLogin Dim userpwd userpwd = Request.Form("userpwd") If userpwd <> "toad4road" Then Error_Msg = "Login Failed. Try Again." ShowLogin Else Session("StudentLoggedIn") = "true" Response.Redirect "http://www.push-button.co.uk/mystudyarea/area-student.htm" End If End Sub %>