<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% ' $Date: 9/25/97 4:20p $ ' $ModTime: $ ' $Revision: 7 $ ' $Workfile: default.asp $ Dim ranWizard If request("ranWizard") <> "" Then If request("ranWizard") = "True" Then ranWizard = "True" ElseIf request("ranWizard") = "False" Then ranWizard = "False" Else call ranWizardCheck End If Else call ranWizardCheck End If %> <% If ranWizard = "False" Then %> <% ElseIf ranWizard = "True" Then %> PWS Homepage Wizard Do you want to... <% If myinfo.Guestbook = "-1" Then response.write "" If myinfo.Messages = "-1" Then response.write "" %>
   Edit your home page
"_ & "View your guest book"_ & "" End If response.write "
"_ & "Open your drop box"_ & "" End If response.write "
<% End If Sub ranWizardCheck If myinfo.ranWizard <> "" Then If myinfo.ranWizard = "-1" Then ranWizard = "True" ElseIf myinfo.ranwizard = "0" Then ranWizard = "False" Else ranWizard = "False" End If Else ranWizard = "False" End If End Sub %>