<% @ LANGUAGE = VBScript %> <% Option Explicit Dim intpage ' ********************* check for posting to the page IF Request.Form("intpage") <>"" THEN intpage = Request.Form("intpage") intpage = intpage + 1 ELSE ' page did not pass counter, or first time user intpage = 0 END IF response.write "intpage=" & intpage & "
" %> PWS publishing wizard
Publishing wizard
  <% If intpage <> 2 Then %>
<% End If %> <% ' *********************** Publishing Wizard Select Case intpage Case 1 %>
File:
  Browse
Description:
Published files:
 
<% Case 2 %>
Shared files:
Link  Static
<% Case 3 %>
That's it!
Now your visitors can view your shared files by clicking on the View my shared files link on your home page.
<% Case Else response.write "" &_ "
Welcome to the Publishing Wizard.
" &_ "Blah Blah Blah Blah Blah Blah Blah Blah Blah" &_ "
" intpage = 0 End Select %>
<% If intpage < 3 Then response.write "" &_ "" Else response.write "" &_ "" End If %>
<% Sub ADD_OnClick msgbox "you wish to add a file, yes?" End Sub SUB REMOVE_OnClick msgbox "you wish to remove a file, yes?" End Sub %>