home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_02.cab / themes.inc < prev    next >
Encoding:
Text File  |  1998-04-27  |  1014 b   |  34 lines
  1. <!--
  2.     $Date: 9/24/97 9:22p $
  3.     $ModTime: $
  4.     $Revision: 7 $
  5.     $Workfile: themes.inc $
  6. -->
  7. <%
  8.  If myinfo.ranWizard <> "-1" Then
  9.     response.write "<H5>Do spersonalizowania swojej strony g│≤wnej mo┐na u┐yµ nastΩpuj╣cych szblon≤w.</H5><BR><blockquote>"_
  10.     & "<SELECT NAME='theme' MULTIPLE SIZE='3'>"
  11.  Else
  12.     response.write "<FONT Size='-1'><A HREF = " & """#""" & " onClick = """ & HelpWindow("Style") & """>Styl szablonu</A></FONT><BR>"_
  13.      & "<SELECT NAME='theme' MULTIPLE SIZE='3' Language='VBSCRIPT' OnChange='Submit'>" 
  14.  End If
  15. %>
  16.     <OPTION NAME="Theme" VALUE="looseleaf"
  17.     <% If myinfo.theme = "" OR myinfo.theme = "looseleaf" Then %>
  18.       SELECTED
  19.     <% END IF %>>Looseleaf
  20.     <OPTION NAME="Theme" VALUE="journal"
  21.     <% If myinfo.theme = "journal" Then %>
  22.       SELECTED
  23.     <% END IF %>>Journal
  24.     <OPTION NAME="Theme" VALUE="gunmetal"
  25.     <% If myinfo.theme = "gunmetal" Then %>
  26.       SELECTED
  27.     <% END If %>>Gunmetal
  28. </SELECT>
  29. <%
  30.  If myinfo.ranWizard <> "-1" Then
  31.     response.write "</blockquote>"
  32.  End If
  33. %>
  34.