Själva loginformen
-------[Sida 1]--------- (default.asp)
-------[sida 2]------- (chklogon.asp)
<%
Dim strLogon, strPass
strPass = "login" ' ditt lösenord
strLogon = Request.Form("LOGON_ID")
If strLogon = strPass then
' Jag ser dagligen programmerare som väljer
' att vändda på dessa, det skall inte spela
' någon roll men för att förtydliga så...
'If not strLogon <> strPass then
Session("LOGON_ID") = Request("LOGON_ID")
Response.Redirect("site.asp")
else
Response.Redirect("default.asp?PASSWD=0")
end if
%>
-------[sida 3]------- (site.asp)
<%
If Session("LOGON_ID") = "" Then
Response.Redirect("default.asp?EJINLOGGAD=0")
End If
%>