<%@ LANGUAGE = VBScript %> <% Option Explicit Dim intpage Dim ranWizard Dim pageType 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 <% 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 %>
Мастер создания основной страницы
<% call NAV %> <% Select Case intpage Case 0 response.write "" 'response.write "мастер основной страницы" Case 2 %> *
Совет. На основную страницу помещается ссылка, с помощью которой посетители смогут просматривать гостевую книгу и оставлять в ней записи. <% Case 3 %> *
Совет. В ящике сообщений посетители могут оставлять сообщения, доступные только для вас. <% Case 4 %> *
<% Case Else %>

<% End Select %>

<% 'Page Wizard Select Case intpage Case 1 %> <% Case 2 %> Нужна ли гостевая книга?
>Да
>Нет
<% Case 3 %> Требуется ли ящик сообщений?
>Да
>Нет
<% Case 4 %> Поздравляем!
Продолжите подготовку сведений для основной страницы. <% Case Else %> Мастер основной страницы помогает быстро и легко создать основную страницу. Чтобы установить ее, нажмите кнопку мастера. <% intpage = 0 End Select %>

<% call NavButtons %>

<% SUB BACK_OnClick intpage = intpage - 1 If intpage < 0 Then intpage = 0 End If END SUB Sub NAV IF intpage => 2 THEN response.write "стиль
" END IF IF intpage => 3 THEN response.write "гостевая книга
" END IF IF intpage => 4 THEN response.write "ящик сообщений
" END IF End Sub Sub navButtons response.write "
" IF intpage = 4 THEN response.write "" intpage = -1 ELSE response.write "" If intpage > 0 Then response.write "" End If response.write "" END IF response.write "
" End Sub %>