<%
'// by Ferruh Mavituna
'// ferruh@mavituna.com
'// http://ferruh.mavituna.com
Dim ThisPage
ThisPage = Request.ServerVariables("SCRIPT_NAME")
'// Set Session + password is Case Sensitive
If Request.Form("pass") <> "" Then
If Trim(Request.Form("pass")) = "gateacher" Then Session("level") = "ok"
End If
'// Logout (xxx.asp?logout=ok)
If Request.Querystring("logout") <> "" Then Session("level") = ""
'// Ask for Login
If Session("level") <> "ok" Then
Response.Write ""
Response.End
Else '// Logged + Show logout button
Response.Write "Click Here to Logout"
End If
%>
