home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / template.asp < prev    next >
Encoding:
Text File  |  1998-04-27  |  2.4 KB  |  88 lines
  1. <% @ LANGUAGE="VBSCRIPT" %>
  2. <%
  3.  Option Explicit
  4.  Dim background, Style, frameHeight, pagePicture, pageText, pageType, pagewords, ranWizard, strpageType, Theme
  5. %>
  6.     <!--
  7.         $Date: 9/25/97 4:10p $
  8.         $ModTime: $
  9.         $Revision: 9 $
  10.         $Workfile: template.asp $
  11.     -->
  12. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  13. <HTML>
  14. <HEAD>
  15. <% call Template_ranWizardCheck
  16.  If request("REQUEST_METHOD") = "POST" Then
  17.     call variableAssignments
  18.     If request.Form("contents") Then
  19. %>
  20.     <META HTTP-EQUIV="Refresh" CONTENT="0; url=/default.asp"> 
  21. <%
  22.     End If
  23.     myinfo.ranWizard = -1
  24.  End If
  25.  
  26.      If request("debug") = "true" Then
  27.         myinfo.ranWizard = -1
  28.      ElseIf request("debug") = "false" Then
  29.         myinfo.ranWizard = 0
  30.      End If
  31.  
  32.      If request.Form("addLink.x") <> "" Then                        'add links
  33.         call Template_addLink
  34.      End If
  35.  
  36.      If request.Form("removeLink.x") <> "" Then            'remove links
  37.          call Template_removeLink
  38.      End If
  39.     %>
  40. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  41. <META HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1250">
  42. <TITLE>Szybka instalacja programu PWS</TITLE>
  43. <% call styleSheet %>
  44. <!--#include file ='tempsubs.inc'-->
  45. <!--#include virtual ='/iissamples/homepage/sub.inc'-->
  46. <!--#include file ='myinfo.inc'-->
  47. <SCRIPT LANGUAGE="VBSCRIPT">
  48. <!--
  49.     Sub theme_OnChange
  50.         document.form(0).submit
  51.     End Sub
  52. -->
  53. </SCRIPT>
  54. </HEAD>
  55. <BODY TopMargin=0 Leftmargin="0">
  56. <FONT FACE="Arial" SIZE="-2">
  57. <!-- ******************* TOP ROW *************************** -->
  58. <TABLE border="0" cellpadding="0" cellspacing="0" width="100%" Background="msg.gif">
  59. <TR>
  60. <TD Valign="top" Align="center" COLSPAN="3">
  61. <FONT Size="-1"><B>Spersonalizuj uk│ad swojej strony g│≤wnej przez dodanie lub zmianΩ informacji na formularzu.</B></FONT>
  62. <TABLE border=0>
  63.     <TR><TD Align=center><FONT Size="-1">
  64. <%
  65.     response.write "<A HREF = " & """#""" & " onClick = """ & HelpWindow("") & """><Font Color=""" & "#0000FF""" & " Size=2>Porada:</FONT></a><BR>"
  66.     If myinfo.ranWizard = "-1" Then
  67.         response.write "<FORM NAME='Template' ACTION='template.asp' METHOD='POST'>"_
  68.         & "<INPUT TYPE='hidden' NAME='basics' Value='-1'><BR>"
  69. %>
  70.         <!--#include file="themes.inc" -->
  71. <%
  72.         response.write "</FORM>"
  73.     End If
  74. %>
  75.     </FONT></TD></TR>
  76. </TABLE>
  77. </TD>
  78. </TR>
  79. </TABLE>
  80. <TABLE border="0" cellpadding="0" cellspacing="0" width="100%" class=bg0>
  81. <TR>
  82.     <!--#include file="T_Theme.inc" -->
  83. </TR>
  84. </TABLE>
  85. </FONT>
  86. </BODY>
  87. </HTML>
  88.