home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 May / Chip_1999-05_cd.bin / zkuste / PersWebServer / iis4_02.cab / tempsubs.inc < prev    next >
Text File  |  1997-10-07  |  8KB  |  196 lines
  1. <!--
  2.     $Date: 10/07/97 9:59a $
  3.     $ModTime: $
  4.     $Revision: 18 $
  5.     $Workfile: tempsubs.inc $
  6. -->
  7. <%
  8.  Function HelpWindow(name)
  9.     DIM strWindow
  10.     strWindow =  "window.open'/Iisadmin/Tour/iiwzhlp.htm#" & name & "','help','height=200,width=400,scrollbars'"
  11.     HelpWindow = strWindow
  12.  End Function
  13. '                *********************** ranWizard check
  14. Sub Template_ranWizardCheck
  15.     If myinfo.ranWizard <> "" Then
  16.       If myinfo.ranWizard = 0 Then
  17.        ranWizard = "False"
  18.      ElseIf myinfo.ranWizard = "-1" Then
  19.        ranWizard = "True"
  20.      End If
  21.     Else
  22.      ranWizard = "False"
  23.       myinfo.ranWizard = 0
  24.     End If
  25. End Sub
  26. '                ******************* GENERIC CONTENTS  *************
  27. '                *********************    MESSAGING/LINKS
  28. ' window.open("iiwzhlp.htm","IIS Wizard Help","width=400,height=300,resizable=no,scrollbars=yes")
  29.  Sub Template_page_messaging
  30.     response.write "<Span ID=header><FONT face='Verdana' size='-2'>"_
  31.     & "Check these boxes to include a <A HREF = " & """#""" & " onClick = """ & HelpWindow("GuestBook") & """>guest book or a drop box</a><BR>"_
  32.     & "<INPUT TYPE='checkbox' NAME='Guestbook' VALUE='-1'"
  33.         If myinfo.Guestbook = "-1" Then
  34.             response.write " CHECKED "
  35.         End If
  36.     response.write " >Guest Book<BR>"_
  37.     & "<INPUT TYPE='checkbox' NAME='Messages' VALUE='-1'"
  38.         If myinfo.Messages = "-1" Then
  39.             response.write " CHECKED "
  40.         End If
  41.     response.write ">Drop box<BR></FONT></SPAN>"
  42.  End Sub
  43. '                ************************ favorite links
  44.   Sub Template_page_links
  45.     response.write "<Span ID=header><FONT face='Verdana' size='-2'>"_
  46.     & "<IFRAME NAME='linksFrame' WIDTH='200' HEIGHT='220' FRAMEBORDER=0 SRC='urlform.asp'>"_
  47.     & "<FRAME NAME='linksFrame' WIDTH='200' HEIGHT='220' FRAMEBORDER=0 SRC='urlform.asp'>"_
  48.     & "</IFRAME></FONT></SPAN>"
  49.  End Sub
  50. '               ************************* title / main contents
  51.  
  52.  Sub Template_title
  53.     response.write "<SPAN ID=header><FONT face='Verdana' size='-2'>"
  54.     If myinfo.title <> "" Then
  55.       response.write "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Title") & """>This is the title for your home page</A><BR>"_
  56.       & "<H1>" & myinfo.Title & "</H1><BR>"_
  57.       & "You can change the title below.<BR>"
  58.     Else
  59.           response.write "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Title") & """>Enter a title for your home page.</A><BR>"
  60.     End If
  61.     response.write "<INPUT NAME=title TYPE=text  size=38 maxlength=39 Value="""_
  62.     & myinfo.Title & """></FONT></SPAN>"
  63.  End Sub
  64.  
  65. '                    ********************** main page contents
  66.  Sub Template_Address
  67.     response.write "<SPAN ID='title'><Font Face='Verdana' Size='-2'>"_
  68.     & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Department") & """>Type your department or division name here.</A><BR>"_
  69.     & "<INPUT NAME='Department' TYPE='text' size=38 maxlength=39 "_
  70.     & "VALUE="""_
  71.     & myinfo.Department & """><BR><A HREF = " & """#""" & " onClick = """ & HelpWindow("Address") & """>Type your address here.</A><BR>"
  72.     DIM number
  73.     number = 1
  74.     For number = 1 to 4
  75.         response.write "<INPUT NAME = 'address" & number & "' TYPE = 'text'"_
  76.         & " size=43 maxlength=60 VALUE=""" & MyInfo("Address" & number) & """><BR>"
  77.     Next
  78.  End Sub
  79.  
  80.  Sub Template_Phone
  81.     response.write "<SPAN ID='title'><Font Face='Verdana' Size='-2'>"_
  82.         & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Phone") & """>Phone number</A><BR>"_
  83.         & "<INPUT NAME = 'Phone' TYPE = 'text' size=20 maxlength=30 "_
  84.         & "VALUE="""_
  85.         & myinfo.Phone & """><BR></Font></Span>"
  86.  End Sub
  87.  
  88.  Sub Template_Email
  89.     response.write "<SPAN ID=header><FONT face='Verdana' size='-2'>"_
  90.     & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Email") & """>Email</A></Font></Span><BR>"_
  91.     & "<INPUT NAME = 'Email' TYPE = 'text'"_
  92.     & " size=38 maxlength=60 VALUE="""_
  93.     & myinfo.Email
  94.     response.write """><BR>"
  95.  End Sub
  96.  
  97.  Sub Template_Name
  98.     response.write "<SPAN ID=header><FONT face='Verdana' size='-2'>"_
  99.     & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Name") & """>Name<A></Font></Span><BR>"_
  100.     & "<INPUT NAME = 'Name' TYPE = 'text' size=38 maxlength=50 VALUE=""" & myinfo.Name & """>"
  101.  End Sub
  102.  
  103.  Sub Template_faxPhone
  104.     response.write "<FONT face='Verdana' size='-2'>"_
  105.     & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Fax") & """>Fax number:</A></FONT><BR>"_
  106.     & "<IMG SRC='space.gif' Width='20' Height='1'>"_
  107.     & "<INPUT TYPE=text NAME='faxPhone' size=20 maxlength=30 VALUE="""_
  108.     & myinfo.faxPhone &""">"
  109.  End Sub
  110.  
  111. '                    ***********************    Page Words
  112.  Function Template_Heading()
  113.     Dim strHeading, number
  114.     strHeading = ""
  115.     number = 1
  116.     For number = 1 to 4
  117.         If number = 1 Then
  118.             strHeading = strHeading & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Heading") & """>Type a heading for the following paragraph</A>."
  119.         Else
  120.             strHeading = strHeading & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Heading") & """>Type an additional heading here</A>."
  121.         End If    
  122.         strHeading = strHeading & "</FONT><BR><INPUT NAME = 'Heading" & number & "' TYPE = 'TEXT' size=43 maxlength=43 VALUE=""" & myinfo("Heading" & number)
  123.         strHeading = strHeading & """ style='color:black; font-family:verdana;font-size:10pt;font-weight:bold'> "
  124.         strHeading = strHeading & "<BR><FONT style='font-family:verdana;font-size:10pt'>"
  125.         If number = 1 Then
  126.             strHeading = strHeading & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Paragraph") & """>Type a paragraph about yourself, about something you are interested in, or your job</A>."
  127.         Else
  128.             strHeading = strHeading & "<A HREF = " & """#""" & " onClick = """ & HelpWindow("Paragraph") & """>Type additional information here</A>."
  129.         End If
  130.         strHeading = strHeading & "</FONT><BR><TEXTAREA NAME ='Words" & number & "' WRAP=PHYSICAL ROWS=4 COLS=44 style='font-family:verdana;font-size:10pt'>"& myinfo("Words" & number) & "</TEXTAREA><BR>"
  131.     Next
  132.     Template_Heading = strHeading
  133.  End Function
  134.  
  135. '                *************************            form data submission
  136.  Sub Template_Theme_onClick
  137.     document.HPWiz.Submit
  138.     document.Template.Submit
  139.  End Sub
  140.  
  141.  Sub Template_addLink
  142.     document.urlUpdate.Submit
  143.  End Sub
  144.  
  145.   Sub urlArray
  146.     response.write "<TR><TD><SPAN ID=header><Font Face='Verdana' Size='-2'>"_                   
  147.     & "<SELECT NAME='urlEdit' MULTIPLE SIZE = 5>"
  148.     Dim urlList(), urlWordsList()
  149.     intID = 0
  150.     For i = 0 to myinfo.intUrl
  151.         If myinfo("urlWords" & i) = "null" or myinfo("url" & i) = "http://" or myinfo("url" & i) = ""  THEN
  152.             myinfo("url" & i) = "null"
  153.             myinfo("urlWords" & i) = "null"
  154.         Else
  155.             Redim Preserve urlList(intID), urlWordsList(intID)
  156.             urlList(intID) = Myinfo("url" & i)
  157.                 urlWordsList(intID) = Myinfo("urlWords" & i)
  158.             response.write "<OPTION NAME='remove' VALUE=""" & i & """>" & " " & urlWordsList(intID)
  159.             intID = intID + 1
  160.         END IF
  161.     Next
  162.     If intID <> "" Then
  163.         response.write "</SELECT></FONT></TD></TR><TR><TD Valign=top align=left>" &_
  164.         "<INPUT type=submit NAME='removeLink' VALUE='remove link'>"_
  165.         & "</Font></Span></TD></TR>"
  166.     End If
  167.  End Sub
  168.  
  169.  Sub addLink
  170.         If myinfo.inturl <> "" Then
  171.             i = 1 + myinfo.intUrl
  172.             myinfo("url" & i) = Request.Form("url")
  173.             If request.Form("urlWords") <> "" Then
  174.                 myinfo("urlWords" & i) = request.Form("urlWords")
  175.             Else
  176.                 myinfo("urlWords" & i) = request.Form("url")
  177.             End If
  178.             myinfo.intUrl = i
  179.         Else
  180.             myinfo.url1 = request.Form("url")
  181.             If request.Form("urlWords") <> "" Then
  182.                 myinfo.urlWords1 = request.Form("urlWords")
  183.             Else
  184.                 myinfo.urlWords1 = request.Form("url")
  185.             End If
  186.             myinfo.inturl = 1
  187.         End If
  188.  End Sub
  189.  
  190.  
  191.  Sub removeLink
  192.     i = Request.Form("urlEdit")                        'link to remove
  193.     myinfo("url" & i) = "null"
  194.     myinfo("urlWords" & i) = "null"
  195.  End Sub
  196. %>