Ulf Andersson © 2009 • Privacy Policy • Terms of Use

<% Response.Expires = -1000 Response.Buffer = True Session("UserLoggedIn") = "" If Request.Form("login") = "true" Then CheckLogin Else ShowLogin End If Sub ShowLogin %>

Välkommen in

Skriv ditt lösenord och tryck på Enter

<% End Sub Sub CheckLogin If LCase(Request.Form("userpwd")) = "Malmen" Then Session("UserLoggedIn") = "true" Response.Redirect "http://brogardskarr.se/Foto.htm Else Response.Write("Ledsen ditt lösenord är fel. Försök igen!

") ShowLogin End If End Sub %>

Glömt lösenord ?