home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 July / APC47-1.ISO / workshop / win95 / pws / iis4_02.cab / themes.inc < prev    next >
Encoding:
Text File  |  1997-09-25  |  1012 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>You can choose from the following templates to personalize your home page.</H5><BR><blockquote>"_
  10.     & "<SELECT NAME='theme' MULTIPLE SIZE='3'>"
  11.  Else
  12.     response.write "<FONT Size='-1'><A HREF = " & """#""" & " onClick = """ & HelpWindow("Style") & """>Template Style</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.