<%
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 (KalvetangenB.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 B Kalvetangen
Webkamera
(velg ett kamera - ikke multiview - dersom du kjører Windows 7 eller
Vista. Husk å aktivere usignerte ActiveX og andre tillegg for området -
hvis ikke vil du ikke se kameraene. Klikk på Play-knappen og legg inn
brukernavn "guest")