<%
Dim ThisPage
ThisPage = Request.ServerVariables("SCRIPT_NAME")
'// Set Session + password is Case Sensitive
If Request.Form("pass") <> "" Then
If Trim(Request.Form("pass")) = "guest" Then Session("level") = "ok"
End If
'// Logout (KalvetangenA.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 "logout(x)"
End If
%>
Sameie Klekkervika