<% @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 %> Logon Page

   

Login zum Downloadbereich der aktuellsten Programmversion


Zugangsdaten 2000Pilze
  Bitte geben Sie Vorname, Nachname und Kennnummer ein.  
  <%=Request.ServerVariables("SERVER_NAME")%>    
  Vorname  
  Nachname  
  Kennnummer  
   
 

© 8. 2006 · R.Winkler · Emailemail senden