home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / default.asp < prev    next >
Encoding:
Text File  |  1998-05-05  |  1.8 KB  |  80 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%
  3.  Option Explicit
  4. '    $Date: 9/25/97 4:20p $
  5. '    $ModTime: $
  6. '    $Revision: 7 $
  7. '    $Workfile: default.asp $
  8.  Dim ranWizard
  9.  If request("ranWizard") <> "" Then
  10.     If request("ranWizard") = "True" Then
  11.         ranWizard = "True"
  12.     ElseIf request("ranWizard") = "False" Then
  13.         ranWizard = "False"
  14.     Else
  15.         call ranWizardCheck
  16.     End If
  17.  Else
  18.     call ranWizardCheck
  19.  End If
  20. %>
  21. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  22. <html>
  23. <head>
  24. <%
  25.  If ranWizard = "False" Then
  26. %>
  27.      <META HTTP-EQUIV="Refresh" CONTENT="0; url=wizard.asp"> 
  28. <%
  29.  ElseIf ranWizard = "True" Then
  30. %>
  31. <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
  32. <title>Kreator strony g│≤wnej</title>
  33. </head>
  34. <BODY Background="admin.gif" Topmargin="1" Leftmargin="100">
  35. <FONT face="Arial" size="+2">Czy chcesz...</FONT>
  36. <TABLE width="100%" border=0>
  37.     <TR><TD rowspan=3>  </TD>
  38.     <TD>
  39.     <FONT face="Arial" size="+1">
  40.     <A HREF="template.asp" TARGET="_BLANK">Edytowaµ stronΩ g│≤wn╣</A>
  41.     </FONT>
  42.     </TD></TR>        
  43.     
  44.     <%
  45.     If myinfo.Guestbook = "-1" Then
  46.         response.write "<TR><TD><FONT face='Arial' size='+1'>"_
  47.         & "<A HREF='qbe.asp'>Ogl╣daµ ksi╣┐kΩ go£ci</A>"_
  48.         & "</FONT>"
  49.     End If
  50.     response.write "</TD></TR>"
  51.  
  52.     If myinfo.Messages = "-1" Then
  53.         response.write "<TR><TD><FONT face='Arial' size='+1'>"_
  54.          & "<A HREF='admin.asp?private=True'>Otworzyµ pole wiadomo£ci</A>"_
  55.          & "</FONT>"
  56.     End If
  57.     response.write "</TD></TR>"
  58.     %>
  59.     </TABLE>
  60. </FONT>
  61. </BODY>
  62. </HTML>
  63. <%
  64.  End If
  65.  
  66.  Sub ranWizardCheck
  67.     If myinfo.ranWizard <> "" Then
  68.         If myinfo.ranWizard = "-1" Then
  69.             ranWizard = "True"
  70.         ElseIf myinfo.ranwizard  = "0" Then
  71.             ranWizard = "False"
  72.         Else
  73.             ranWizard = "False"
  74.          End If
  75.     Else
  76.         ranWizard = "False"
  77.     End If
  78.  End Sub
  79. %>
  80.