home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 September / CHIPCD_9_99.iso / software / uaktualnienia / OptionPackPL / iis4_06.cab / contalph.asp < prev    next >
Text File  |  1998-04-27  |  2KB  |  84 lines
  1.  
  2. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
  3.  
  4. <HTML><HEAD><TITLE>Spis tre£ci</TITLE>
  5.  
  6. <META NAME="ROBOTS" CONTENT="NOINDEX"></HEAD>
  7.  
  8. <BODY bgcolor="#000000">
  9. <SCRIPT LANGUAGE="VBScript">
  10. <!--
  11. Function Dec(strHex)
  12.     Dec = InStr("123456789ABCDEF", UCase(Left(strHex,1))) * 16
  13.     Dec = Dec + InStr("123456789ABCDEF", UCase(Mid(strHex,2,1)))
  14. End Function
  15.  
  16. Function FixHex(ByVal strURL)
  17.     Dim x
  18.     FixHex = ""    
  19.     x = InStr(1,strURL,"%")
  20.     Do While (x > 0)
  21.         FixHex = FixHex & Left(strURL,x-1)
  22.         FixHex = FixHex & Chr(Dec(Mid(strURL,x+1)))
  23.         strURL = Mid(strURL,x+3)
  24.         x = InStr(1,strURL,"%")
  25.     Loop
  26.     FixHex = FixHex & strURL
  27. End Function
  28.  
  29. Sub TOCSynch_Click()
  30. MyUrl=parent.frames(2).location
  31. x=InStr(MyUrl,"/iishelp")
  32. y=Len(MyUrl)
  33. NewUrl=FixHex(Right(MyUrl,y-(x-1)))
  34. call hhctrl.syncURL(NewUrl)
  35. call hhctrl.syncURL(NewUrl)
  36. end sub
  37.  
  38. Sub TOCPrint_Click()
  39. MyUrl=parent.frames(2).location
  40. x=InStr(MyUrl,"/iishelp")
  41. y=Len(MyUrl)
  42. NewUrl=FixHex(Right(MyUrl,y-(x-1)))
  43. hhctrl.syncURL(NewUrl)
  44. hhctrl.syncURL(NewUrl)
  45. hhctrl.Print()
  46. End Sub
  47. -->
  48.     </SCRIPT>
  49.  
  50. <SPAN STYLE="position:  relative; left: 0; top: 4">
  51. <IMG SRC="Cont.gif" border="0" alt="Spis tre£ci">
  52. </Span>
  53.  
  54. <SPAN STYLE="position:  relative; left: -4; top: 4">
  55. <A HREF="Index.asp"><IMG SRC="NoIndex.gif" border="0" alt="Indeks"></A>
  56. </Span>
  57.  
  58.  
  59.  
  60. <table width=262 height="31" border="0" cellspacing=2 bgcolor="white" bordercolor="white">
  61. <TR><TD width="208">
  62.  
  63. </TD>
  64. <TD align="right">
  65. <SPAN STYLE="position:  relative; left: 1; top: 0">
  66. <a href="#Ptoc" onclick="TOCPrint_Click()"><img src="print.gif" border="0" alt="Drukuje temat lub wΩze│ ze Spisu tre£ci"></a><a name="Ptoc"></a>
  67. </SPAN>
  68. </td>
  69. <td align="left">
  70. <a href="#Stoc" onclick="TOCSynch_Click()"><img src="synch.gif" border="0" alt="Synchronizuje Spis tre£ci z ramk╣ z prawej strony"></a><a name="Stoc"></a>
  71. </td></tr></table>
  72.  
  73.  
  74. <OBJECT id=hhctrl type="application/x-oleobject"
  75.         classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11"
  76.         codebase="../../common/alpha.cab#version=4,72,7291,0"
  77.         width="262"
  78.         height="74%">
  79.     <PARAM name="Command" value="Contents">
  80.     <PARAM name="flags" value="0x0,0x35,0xFFFFFFFF">
  81.     <PARAM name="Item1" value="cohhc.hhc">
  82. </OBJECT>
  83. </BODY>
  84. </HTML>