home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 July / APC47-1.ISO / workshop / win95 / pws / iis4_02.cab / wizard.asp < prev   
Encoding:
Text File  |  1997-10-08  |  5.1 KB  |  223 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <% 
  3.  Option Explicit
  4.  Dim intpage
  5.  Dim ranWizard
  6.  Dim pageType
  7.  If Request.Form("counter") <>"" Then
  8.     intpage = Request.Form("counter")
  9.     If Request.Form("Back") <> "" Then
  10.         call BACK_OnClick
  11.     Else
  12.         intpage = intpage + 1
  13.     End If
  14.  ElseIf request("nav") <> "" then 
  15.         intpage = request("nav") 
  16.  ElseIf request("intpage") <> "" Then
  17.         intpage = intpage + 1
  18.  Else 
  19.         intpage = 0 
  20.  End If
  21. %>
  22.  
  23. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  24. <html>
  25. <!--
  26.     $Date: 10/08/97 10:35a $
  27.     $ModTime: $
  28.     $Revision: 6 $
  29.     $Workfile: wizard.asp $
  30. -->
  31. <HEAD>
  32. <%
  33.  If request.Form("personal") <> "" Then
  34. %>
  35. <SCRIPT Language="VBSCRIPT">
  36. <!--
  37.     window.open "template.asp"
  38. -->
  39. </SCRIPT>
  40. <%    
  41.     myinfo.ranWizard=-1
  42. %>
  43.     <META HTTP-EQUIV="Refresh" CONTENT="0; url=default.asp?ranWizard=True"> 
  44. <%
  45.  End If
  46. %>
  47. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  48. <meta name="GENERATOR" content="Microsoft FrontPage (Visual InterDev Edition) 2.0">
  49. <title>PWS home page Wizard</title>
  50. <%
  51.  If Request.Form("theme") <> "" Then
  52.     myinfo.Theme = Request.Form("Theme")
  53.  End If
  54.  
  55.  If Request.Form("guestbook") <> "" Then
  56.     myinfo.guestbook = Request.Form("guestbook")
  57.  End If
  58.  
  59.  If Request.Form("messages") <> "" Then
  60.     myinfo.messages = Request.Form("messages")
  61.  End If
  62.  
  63. %>
  64. </HEAD>
  65. <BODY bgcolor="#FFFFFF" topmargin="0" leftmargin="2">
  66. <Font FACE="verdana" SIZE=-2><B>
  67.     <FORM NAME="HPWiz" ACTION="wizard.asp" METHOD="POST" >
  68.     <table border="0" cellpadding="0" cellspacing="0" width="100%">
  69.     <TR>
  70.     <TD Background="msg.gif" Colspan="3" Align="center" Height="50">
  71.     <Font FACE="verdana" SIZE="5"><B>
  72.     <IMG SRC="/images/space.gif" height="20" width="1" Align="right">
  73.     Home Page Wizard
  74.     </B></Font>
  75.     </TD>
  76.     </TR>
  77.     <TR>
  78.     <TD Width="90" VAlign="top">
  79.     <Font FACE="Verdana" size="-1"><B>
  80.     <% call NAV %>
  81.     </B>
  82.     </TD>
  83.     <TD valign="top" Width="150" Height="175">
  84.     <Font FACE="Verdana" size="-1"><B>
  85.     <%
  86.      Select Case intpage
  87.      Case 0
  88.              response.write "<INPUT TYPE='image' SRC='merlin.gif' NAME='Next' VALUE='  >>  '>"
  89.      'response.write "<IMG  ALT='home page wizard'>"
  90.      Case 2
  91.     %>
  92.         <IMG SRC="message.gif" ALT="*" Align="middle" Width=50 height=40 Vspace=7>
  93.         <BR><Font Color="#0000FF" Size=2>Hint:</FONT>
  94.         This puts a link on your home page where visitors can view and sign your guest book.
  95.     <%
  96.      Case 3
  97.     %>
  98.         <IMG SRC="dropbox.gif" ALT="*" Align="middle" Width=50 height=50 Vspace=7>
  99.         <BR><Font Color="#0000FF" Size=2>Hint:</FONT>
  100.         A drop box is a place visitors can leave messages only you can read.
  101.     <%
  102.      Case 4
  103.     %>
  104.         <IMG SRC="streamer.gif" ALT="*"><BR>
  105.     <%
  106.      Case Else
  107.     %>
  108.         <P><IMG SRC='generic.gif' width='143' height='174'>
  109.     <%
  110.      End Select
  111.     %>
  112.     </B>
  113.     </TD>
  114.     <TD Valign="middle" width="220">
  115.  
  116.     <Font FACE="Verdana" size="-1"><B>
  117.     <%                                                'Page Wizard
  118.      Select Case intpage
  119.      Case 1
  120.     %>
  121.         <!--#include file="themes.inc" -->        
  122.     <%
  123.      Case 2
  124.     %>
  125.         Do you want a guest book?<BR>
  126.         <blockquote>
  127.         <INPUT TYPE=radio VALUE=-1 NAME="Guestbook" 
  128.         <%
  129.          If myinfo.Guestbook = "-1" or myinfo.Guestbook = "" Then
  130.           response.write "CHECKED"
  131.          End If
  132.         %>>Yes
  133.          <BR>
  134.         <INPUT TYPE=radio VALUE=0 NAME="Guestbook"
  135.         <%
  136.          If myinfo.Guestbook="0" Then
  137.          response.write "CHECKED"
  138.          End If
  139.         %>>No
  140.         </blockquote>
  141.     <%
  142.      Case 3
  143.     %>
  144.         Do you want a drop box?<BR>
  145.         <blockquote>
  146.         <INPUT TYPE=radio VALUE="-1" NAME="Messages" 
  147.         <%
  148.          If myinfo.Messages = "-1" or myinfo.Messages = "" Then
  149.           response.write "CHECKED"
  150.          End If
  151.         %>>Yes
  152.          <BR>
  153.         <INPUT TYPE=radio VALUE=0 NAME="Messages"
  154.         <%
  155.          If myinfo.Messages="0" Then
  156.          response.write "CHECKED"
  157.          End If
  158.         %>>No
  159.         </blockquote>
  160.     <%
  161.      Case 4
  162.     %>
  163.     Congratulations!<BR>
  164.     Next, you personalize the information on your home page. 
  165.     <%
  166.      Case Else
  167.     %>
  168.         The home page wizard helps you create your own home page quickly
  169.          and easily. To set up your home page, click on the wizard.
  170.     <%
  171.      intpage = 0
  172.      End Select
  173.     %>
  174.     </B>    
  175.     </Font>
  176.     <P>
  177.     <%
  178.      call NavButtons
  179.     %>
  180.     </TD>
  181.     </TR>
  182. </table>
  183.     </FORM>
  184. </Font>
  185. </BODY>
  186. </html>
  187.  
  188. <%
  189.  SUB BACK_OnClick
  190.     intpage = intpage - 1
  191.     If intpage < 0 Then
  192.         intpage = 0
  193.     End If
  194.  END SUB
  195.  
  196.  Sub NAV
  197.     IF intpage => 2 THEN
  198.         response.write "<A HREF='wizard.asp?nav=1'>theme</A><BR>"
  199.     END IF
  200.     IF intpage => 3 THEN        
  201.         response.write "<A HREF='wizard.asp?nav=2'>guest book</A><BR>"
  202.     END IF
  203.     IF intpage => 4 THEN        
  204.         response.write "<A HREF='wizard.asp?nav=3'>drop box</A><BR>"
  205.     END IF
  206.  End Sub
  207.  
  208.  Sub navButtons
  209.     response.write "<blockquote>"
  210.     IF intpage = 4 THEN
  211.         response.write "<INPUT TYPE='Submit' NAME='personal' VALUE='  >>  '>"
  212.         intpage = -1
  213.     ELSE
  214.         response.write "<INPUT TYPE='hidden' NAME='counter' VALUE =" & intpage & ">"
  215.         If intpage > 0 Then
  216.         response.write "<INPUT TYPE='Submit' NAME='Back' VALUE='  <<  '>"
  217.         End If
  218.         response.write "<INPUT TYPE='Submit' NAME='Next' VALUE='  >>  '>"
  219.     END IF
  220.     response.write "</blockquote>"
  221.  End Sub
  222. %>
  223.