<%@ LANGUAGE = VBScript %> <% Option Explicit ' $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 %> Предполагаемые действия <% If myinfo.Guestbook = "-1" Then response.write "" If myinfo.Messages = "-1" Then response.write "" %>

	Изменение основной страницы
	"_ & "Просмотр гостевой книги"_ & "" End If response.write "
	"_ & "Открытие ящика сообщений"_ & "" 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 %>