home *** CD-ROM | disk | FTP | other *** search
/ 207.233.110.77 / 207.233.110.77.tar / 207.233.110.77 / vbasic / error.asp < prev    next >
Text File  |  2001-10-12  |  2KB  |  70 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2. <% Option Explicit %>
  3. <html>
  4. <head>
  5. <%
  6. Dim strURL
  7. Dim intSec
  8. intSec = 5
  9. Select Case LCase(Trim(Request.QueryString("error")))
  10.     Case "denied", "noacct", "dupacct"
  11.         strURL = "default.asp"
  12.     Case "notactive"
  13.         strURL = "default.asp"
  14.         intSec = 8
  15.     Case "bademail", "badname", "badpassword"
  16.         strURL = "newacct.asp"
  17.     Case "findpassword"
  18.         strURL = "forgotpassword.asp"
  19. End Select
  20. %>
  21. <META HTTP-EQUIV=REFRESH CONTENT="<%=intSec%>;URL=<%=strURL%>">
  22. </head>
  23. <body>
  24. <p>
  25. <%
  26. Select Case LCase(Trim(Request.QueryString("error")))
  27.     Case "denied"
  28.     %>
  29.         <h1>Access Denied!</h1>
  30.         <p>Returning you to login page...</p>
  31.     <%
  32.     Case "noacct"
  33.     %>
  34.         <h1>Account not found or password invalid!</h1>
  35.         <p>Returning you to login page...</p>
  36.     <%
  37.     Case "bademail", "findpassword"
  38.     %>
  39.         <h1>Email address invalid!</h1>
  40.         <p>Please enter a valid email address.  Returning you to previous page...</p>
  41.     <%
  42.     Case "dupacct"
  43.     %>
  44.         <h1>Account <%=Session("AcctName")%> already exists!</h1>
  45.         <p>Returning you to login page...</p>
  46.     <%
  47.     Case "notactive"
  48.     %>
  49.         <h1>Account: <%=Session("AcctName")%>  not yet activated!</h1>
  50.         <p>An email message will be sent to you when your account is activated.<br>
  51.            Returning you to login page...</p>
  52.     <%
  53.     Case "badpassword"
  54.     %>
  55.         <h1>Password Invalid!</h1>
  56.         <p>Please enter a valid password.  Returning you to the Create New Account page...</p>
  57.     <%
  58.     Case "badname"
  59.     %>
  60.         <h1>Name is blank or contains invalid characters!</h1>
  61.         <p>Please enter a valid First and Last Name.  Returning you to the Create New Account page...</p>
  62. <%    
  63. End Select
  64. %>
  65.     
  66.     
  67. </body>
  68.  
  69. </html>
  70.