<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'----- Kollar om användarnamn och lösenord angetts
If Request.Form("name") <> "" And Request.Form("pword") <> "" Then
'----- Kontrollerar om korrekta uppgifter angetts
If Request.Form("name") = "namn1" And Request.Form("pword") = "lösenord1" Then
'----- Sparar i en global variabel att användaren är inloggad
Session("loggedin") = True
'----- Sparar vilken typ av användare det är
Session("type") = "one"
'----- Skickar vidare personen till korrekt adress
Response.Redirect("pageone.asp")
ElseIf Request.Form("name") = "namn2" And Request.Form("pword") = "lösenord2" Then
'----- Sparar i en global variabel att användaren är inloggad
Session("loggedin") = True
'----- Sparar vilken typ av användare det är
Session("type") = "two"
'----- Skickar vidare personen till korrekt adress
Response.Redirect("pagetwo.asp")
ElseIf Request.Form("name") = "namn3" And Request.Form("pword") = "lösenord3" Then
'----- Sparar i en global variabel att användaren är inloggad
Session("loggedin") = True
'----- Sparar vilken typ av användare det är
Session("type") = "three"
'----- Skickar vidare personen till korrekt adress
Response.Redirect("pagethree.asp")
Else
blnError = True
End If
End If
%>
Login
<%
'----- Kollar om en inloggning gått dåligt
If blnError Then
Response.Write("Felaktigt användarnamn eller lösenord!
")
End If
%>