<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<%
Dim intpage, ranWizard, thispage
thispage = "wizard"
If Request.Form("counter") <>"" Then
intpage = Request.Form("counter")
If Request.Form("Back") <> "" Then
call BACK_OnClick
Else
intpage = intpage + 1
End If
ElseIf request("nav") <> "" then
intpage = request("nav")
ElseIf request("intpage") <> "" Then
intpage = intpage + 1
Else
intpage = 0
End If
%>
<%
If request.Form("personal") <> "" Then
%>
<%
myinfo.ranWizard=-1
%>
<%
End If
%>
PWS home page Wizard
<%
If Request.Form("theme") <> "" Then
myinfo.Theme = Request.Form("Theme")
End If
If Request.Form("guestbook") <> "" Then
myinfo.guestbook = Request.Form("guestbook")
End If
If Request.Form("messages") <> "" Then
myinfo.messages = Request.Form("messages")
End If
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
s = "