<% Response.Buffer = True Function ValidateLogin( sId, sPwd ) ' For you to validate ID and PASSWORD ' Maybe against a database ' Here we have hardcoded some ids and passwords ' ValidateLogin = False If sId = "restore" AND sPwd="perio" Then ValidateLogin = True End If If sId = "test2" AND sPwd="password2" Then ValidateLogin = True End If End Function Dim sText, fBack fBack = False If Request.Form("dologin") = "yes" Then 'Try to login If ValidateLogin( Request.Form("id"),Request.Form("pwd") ) = True Then 'It is OK!!! 'We are logged in so lets go back to the file that included us fBack = True Session("logonid") = Request.Form("id") Else sText = "Wrong password or user id" End If Else 'We are not trying to login... If Session("logonid") <> "" Then ' fBack = True 'We are logged in so lets go back to the file that included us Else sText = "Please login" End If End If If fBack = False Then %> <%=sText%> <% Dim sURL sURL = Request.ServerVariables("SCRIPT_NAME") If Request.ServerVariables("QUERY_STRING") <> "" Then ' sURL = sURL & "?" & Request.ServerVariables("QUERY_STRING") End If %>

Login Name:
Password:

Please email or call technical support for your login information.

Home Products Purchase Partners Manual Help Contact Us
 
e-Mail for Information
© 1988 - 2005 Chart-It, Inc.

 

  <% Response.End End If %>