<% 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 ""_ & "Check these boxes to include a guest book or a drop box
"_ & "Guest Book
"_ & "Drop box
" 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 "This is the title for your home page
"_ & "

" & myinfo.Title & "


"_ & "You can change the title below.
" Else response.write "Enter a title for your home page.
" End If response.write "" End Sub ' ********************** main page contents Sub Template_Address response.write ""_ & "Type your department or division name here.
"_ & "
Type your address here.
" DIM number number = 1 For number = 1 to 4 response.write "
" Next End Sub Sub Template_Phone response.write ""_ & "Phone number
"_ & "
" End Sub Sub Template_Email response.write ""_ & "Email
"_ & "
" End Sub Sub Template_Name response.write ""_ & "Name
"_ & "" End Sub Sub Template_faxPhone response.write ""_ & "Fax number:
"_ & ""_ & "" End Sub ' *********************** Page Words Function Template_Heading() Dim strHeading, number strHeading = "" number = 1 For number = 1 to 4 If number = 1 Then strHeading = strHeading & "Type a heading for the following paragraph." Else strHeading = strHeading & "Type an additional heading here." End If strHeading = strHeading & "
" strHeading = strHeading & "
" If number = 1 Then strHeading = strHeading & "Type a paragraph about yourself, about something you are interested in, or your job." Else strHeading = strHeading & "Type additional information here." End If strHeading = strHeading & "

" 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 %>