% @language="vbscript" %>
<%
' Was this page posted to?
If UCase(Request.ServerVariables("HTTP_METHOD")) = "POST" Then
' If so, check the username/password that was entered.
If ComparePassword(Request("Vorname"),Request("Nachname"),Request("Kennnummer")) Then
' If comparison was good, store the user name...
' Session("Vorname") = Request("Vorname")
Session("Vorname") = Request("Vorname") & " " & Request("Nachname")
' ...and redirect back to the original page.
Response.Redirect Session("REFERRER")
End If
End If
%>