<%
Function HelpWindow(name)
DIM strWindow
strWindow = "window.open'/Iisadmin/Tour/iiwzhlp.htm#" & name & "','help','height=200,width=400,scrollbars'"
HelpWindow = strWindow
End Function
' *********************** ranWizard check
Sub Template_ranWizardCheck
If myinfo.ranWizard <> "" Then
If myinfo.ranWizard = 0 Then
ranWizard = "False"
ElseIf myinfo.ranWizard = "-1" Then
ranWizard = "True"
End If
Else
ranWizard = "False"
myinfo.ranWizard = 0
End If
End Sub
' ******************* GENERIC CONTENTS *************
' ********************* MESSAGING/LINKS
' window.open("iiwzhlp.htm","IIS Wizard Help","width=400,height=300,resizable=no,scrollbars=yes")
Sub Template_page_messaging
response.write ""_
& "Установите флажки для включения гостевой книги или ящика сообщений "_
& "Гостевая книга "_
& "Ящик сообщений "
End Sub
' ************************ favorite links
Sub Template_page_links
response.write ""_
& ""
End Sub
' ************************* title / main contents
Sub Template_title
response.write ""
If myinfo.title <> "" Then
response.write "Заголовок для основной страницы "_
& "
"
Next
Template_Heading = strHeading
End Function
' ************************* form data submission
Sub Template_Theme_onClick
document.HPWiz.Submit
document.Template.Submit
End Sub
Sub Template_addLink
document.urlUpdate.Submit
End Sub
Sub urlArray
response.write "
"_
& "
" &_
""_
& "
"
End If
End Sub
Sub addLink
If myinfo.inturl <> "" Then
i = 1 + myinfo.intUrl
myinfo("url" & i) = Request.Form("url")
If request.Form("urlWords") <> "" Then
myinfo("urlWords" & i) = request.Form("urlWords")
Else
myinfo("urlWords" & i) = request.Form("url")
End If
myinfo.intUrl = i
Else
myinfo.url1 = request.Form("url")
If request.Form("urlWords") <> "" Then
myinfo.urlWords1 = request.Form("urlWords")
Else
myinfo.urlWords1 = request.Form("url")
End If
myinfo.inturl = 1
End If
End Sub
Sub removeLink
i = Request.Form("urlEdit") 'link to remove
myinfo("url" & i) = "null"
myinfo("urlWords" & i) = "null"
End Sub
%>
"_
& ""
End Sub
' *********************** Page Words
Function Template_Heading()
Dim strHeading, number
strHeading = ""
number = 1
For number = 1 to 4
If number = 1 Then
strHeading = strHeading & "Введите заголовок для следующего абзаца."
Else
strHeading = strHeading & "Введите дополнительный заголовок."
End If
strHeading = strHeading & "