home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 April / PCWorld_1999-04_cd.bin / Software / TemaCD / DutchHtm / VBScript.ds_ / VBScript.ds
INI File  |  1998-12-01  |  58KB  |  1,938 lines
  1. [Do not delete or edit this document]
  2.  
  3. "Simple alert"
  4. <1>Message Box-Alert. Insert Part 1 in between your </HEAD>and</HEAD> tags and Part 3 anywhere in body. Change YOUR ALERT and YOURTXT.
  5. <2><SCRIPT LANGUAGE="vbscript">
  6.      Sub cmdShowAlert_OnClick
  7.       Alert "YOUR ALERT "
  8.      End Sub
  9.    </SCRIPT>
  10. <3>
  11. <4><INPUT TYPE="button" NAME="cmdShowAlert" VALUE="YOURTXT">
  12. <End>
  13.  
  14. "Simple alert on load"
  15. <1>Insert Part 3 anywhere in body. Don't forget to change text!
  16. <2>
  17. <3>
  18. <4><SCRIPT LANGUAGE="vbscript">
  19.     Document.Write "<CENTER><H3>My Web Page</H3>"
  20.     Alert "Welcome to my web page!"
  21.   </SCRIPT>
  22. <End>
  23.  
  24. "Simple alert on unload"
  25. <1>Insert Part 1 in between your </HEAD>and</HEAD> tags and Part 3 anywhere in body. Don't forget to change text!
  26. <2><SCRIPT LANGUAGE="vbscript">
  27.    Sub Window_OnUnload
  28.        Alert "Good Bye, Come Again Soon!!"
  29.    End Sub
  30.   </SCRIPT>
  31. <3>
  32. <4><H1>Hallo</H1>
  33. <End>
  34.  
  35. "Simple alert - three buttons"
  36. <1>Insert Part 1 in between your </HEAD>and</HEAD> tags and Part 3 anywhere in body. Change text in the lines marked 'CHANGE TEXT and BUTTON 1, 2 and 3.
  37. <2><SCRIPT LANGUAGE="vbscript">
  38.    Dim CRLF
  39.    CRLF = Chr(13) & Chr(10)
  40.  
  41.    Sub cmdButton1_OnClick
  42.     Call showAlertBox(Top.cmdButton1.Value)
  43.    End Sub
  44.  
  45.    Sub cmdButton2_OnClick
  46.     showAlertBox Top.cmdButton2.Value 
  47.    End Sub
  48.  
  49.    Sub cmdButton3_OnClick
  50.     showAlertBox Top.cmdButton3.Value 
  51.    End Sub
  52.  
  53. Sub showAlertBox(strButtonValue)
  54. dim strMessage
  55.  strMessage = "This is to let you know " & CRLF                 'CHANGE TEXT
  56.  strMessage = strMessage & "you just pressed the button" & CRLF 'CHANGE TEXT
  57.  strMessage = strMessage & "marked " & strButtonValue           'CHANGE TEXT
  58.   Alert strMessage
  59. End Sub
  60.  
  61.   </SCRIPT>
  62. <3>
  63. <4><INPUT TYPE="button" NAME="cmdButton1" VALUE="BUTTON 1"><P>
  64.    <INPUT TYPE="button" NAME="cmdButton2" VALUE="BUTTON 2"><P>
  65.    <INPUT TYPE="button" NAME="cmdButton3" VALUE="BUTTON 3"><P>
  66. <End>
  67.  
  68. "Button with Drop list"
  69. <1>This button has menu with links. Part 3 anywhere in body. Change YOUR LINK 1..., MENU CAPTION 1... and BUTTON CAPTION.
  70. <2>
  71. <3>
  72. <4><script language="VBScript">
  73. <!--
  74. Sub Menu1_OnClick(id)
  75. parent.location.href = id
  76. end Sub
  77.  
  78. Sub Button1_MouseDown(Button, Shift, x, y)
  79. call Menu1.RemoveAllItems()
  80. call Menu1.AddItem ("YOUR LINK 1","MENU CAPTION 1","","activebutton")
  81. call Menu1.AddItem ("YOUR LINK 2","MENU CAPTION 2","","activebutton")
  82. call Menu1.AddItem ("YOUR LINK 3","MENU CAPTION 3","","activebutton")
  83. call Menu1.AddItem ("YOUR LINK 4","MENU CAPTION 4","","activebutton")
  84. call Menu1.AddItem ("YOUR LINK 5","MENU CAPTION 5","","activebutton")
  85. call Menu1.Popup(Button1.Left + Button1.Width, Button1.Top)
  86. End Sub
  87. -->
  88. </script>
  89.  
  90. <!--beginactivebuttons-->
  91.  
  92. <object id="menu1" width=100 height=51 
  93.     classid="clsid:f5131c24-e56d-11cf-b78a-444553540000">
  94.     </object>
  95.  
  96.    <object id="button1" width=120 height=23
  97.      classid="clsid:b10cbd8d-f9b6-11cf-9b38-0080ad11b667">
  98.         <param name="_version" value="65536">
  99.         <param name="_extentx" value="2646">
  100.         <param name="_extenty" value="600">
  101.         <param name="_stockprops" value="2">
  102.         <param name="caption" value="BUTTON CAPTION">
  103.     </object>
  104. <End>
  105.  
  106. "Browser Detect"
  107. <1>Insert Part 1 in between <HEAD>and</HEAD> tags. You can change text description(You use a Microsoft browser....)
  108. <2><script language="VBSCRIPT">
  109. <!--
  110.  
  111. Call PrintAppName 
  112.  Sub PrintAppName
  113.  
  114.    If InStr(Window.Navigator.AppName, "Microsoft") > 0 Then
  115.        Document.Write "You use a Microsoft browser."
  116.    ElseIf InStr(Window.Navigator.AppName, "Netscape") > 0 Then
  117.        Document.Write "You use a Netscape browser."
  118.    Else
  119.        Document.Write "You do not use a Microsoft or Netscape browser."
  120.    End If
  121.  End Sub
  122.  
  123. -->
  124. </script>
  125. <3>
  126. <4>
  127. <End>
  128.  
  129. "Time-based greetings"
  130. <1>Insert Part 3 wherever you want in your body. You can try changing of text in Document.Write lines.
  131. <2>
  132. <3>
  133. <4><center>
  134. <SCRIPT LANGUAGE="VBScript"> 
  135. <!--
  136. Call PrintWelcome 
  137. Sub PrintWelcome 
  138. Dim h 
  139. h = Hour(Now)
  140.  
  141.       If h < 12 then 
  142.          Document.Write "Good morning! "
  143.   ElseIf h < 17 then
  144.          Document.Write "Good afternoon! " 
  145.     Else 
  146.          Document.Write "Good evening! " 
  147.   End If 
  148.  
  149. Document.Write "Welcome to the world of Microsoft VBScript. " 
  150. Document.Write "Just in case you were wondering, it's "
  151. Document.Write WeekDayName(DatePart("w",Now())) & " "
  152. Document.Write Time() & " on " & Date() & "." 
  153.  
  154. End Sub
  155. -->
  156. </SCRIPT>
  157. </center>
  158. <End>
  159.  
  160. "Document Footer"
  161. <1>This example demonstrates how you can add a variable footer
  162. to your web pages displaying the current date and time, the 
  163. type of browser, and the date and time the document
  164. was last modified. Insert Part 3 in body.
  165. <2>
  166. <3>
  167. <4><!--You can edit(remove) following lines-->
  168. <FONT FACE="arial" SIZE=2>
  169. <CENTER>
  170. <H3>A Document Footer Example</H3>
  171. </CENTER>
  172. <P>
  173. <HR>
  174. <!--You can edit(remove) above lines-->
  175. <CENTER>
  176. <FONT SIZE=1>
  177. <SCRIPT LANGUAGE="vbscript">
  178.     Document.Write Now() & "<BR>"
  179.     Document.Write Navigator.userAgent & "<BR>"
  180.     Document.Write "Last Modified: " & Document.LastModified
  181. </SCRIPT>
  182. </FONT>
  183. </CENTER>
  184. <End>
  185.  
  186. "Audio greetings"
  187. <1>This script will play a different audio clip to greet you when the page loads, depending on what time of day it is. You should have three different .wav files, morning.wav, afternoon.wav and evening.wav. Insert Part 1 in between your </HEAD>and</HEAD> tags.
  188. <2><script language="VBSCRIPT">
  189. <!--
  190.  
  191.     Dim strGreeting
  192.     Dim h
  193.  
  194.     h = Hour(Now)
  195.     If h < 12 then
  196.         strGreeting = "morning.wav"
  197.     ElseIf h < 17 then
  198.         strGreeting = "afternoon.wav"
  199.     Else
  200.         strGreeting = "evening.wav"
  201.     End If
  202.  
  203.     Document.Write "<BGSOUND SRC=" & strGreeting & ">"
  204.  
  205. -->
  206. </script>
  207. <3>
  208. <4>
  209. <End>
  210.  
  211. "Random MIDI Player"
  212. <1>Script plays MIDI files on load randomly. You should have 5 mid files named sound1.mid through sound5.mid, placed in the same folder. Insert Part 3 in body.                   
  213. <2>
  214. <3>
  215. <4><SCRIPT LANGUAGE="VBScript">
  216. <!--
  217. dim play(5)
  218. play(0)="sound1.mid"
  219. play(1)="sound2.mid"
  220. play(2)="sound3.mid"
  221. play(3)="sound4.mid"
  222. play(4)="sound5.mid"
  223.  
  224. function findrand()
  225.       randomize
  226.       findrand = -1
  227.       while findrand < 0 or findrand > 4
  228.          findrand = int(rnd*5)
  229.       wend
  230. End function
  231.  
  232. sndPlay = play(findrand())
  233. html = "<bgsound src= " & chr(34) & sndPlay & chr(34) & " loop=infinite>"
  234. document.write html
  235. -->
  236. </script>
  237. <End>
  238.  
  239. "Link Color Changer"
  240. <1>Link changes color on mouse over. Insert Part 1 in between <HEAD>and</HEAD> tags, Part 2 as your <BODY> tag (set bacground color as you wish), and Part 3 in body. Change HEXCOLOR, YOUR LINK 1... and LINK DESCRIPTION 1...
  241. <2><SCRIPT LANGUAGE="VBScript">
  242. <!--
  243. Function OnLink() 
  244. If window.event.toElement.tagname = "A" Then 
  245. window.event.toElement.style.color = "HEXCOLOR" 
  246. End If 
  247. End Function 
  248.  
  249. Function OffLink() 
  250. If Not IsNull(window.event.fromElement.tagname) Then 
  251. window.event.fromElement.style.color = "" 
  252. End If 
  253. End Function
  254. -->
  255. </SCRIPT>
  256. <3><BODY onmouseover="OnLink()" onmouseout="OffLink()">
  257. <4><A HREF="YOUR LINK 1">LINK DESCRIPTION 1</A><BR>
  258. <A HREF="YOUR LINK 2">LINK DESCRIPTION 1</A>
  259. <!--You can add as meny links as you want-->
  260. <End>
  261.  
  262. "Random Background Image Changer"
  263. <1> Insert Part 1 in between <HEAD>and</HEAD> tags, Part 2 as your <BODY> tag (set bacground color as you wish), and Part 3 in body. Change BGIMAGE1 and BGIMAGE2. Change text.
  264. <2><script language="VBScript">
  265. <!-- 
  266.  
  267.   Dim BODYTAG             'HTML tag to include in page
  268.   Dim NumImages, Image()  'Used to hold the image
  269.   Dim RandomNumber        'Used to generate a random number
  270.   Dim BackgroundPath      'Used for path to background images
  271.  
  272.   'Path to your images in the case that thay are in different folder then     'your .html
  273.   BackgroundPath = ""
  274.  
  275.   NumImages = 2
  276.   ReDim Image(NumImages - 1) 'Subtract one since arrays use whole numbers
  277.  
  278.   'You need to set these to the images in the path on your server
  279.   Image(0) = "BGIMAGE1"
  280.   Image(1) = "BGIMAGE2"
  281.  
  282.   Randomize
  283.   RandomNumber = Int(Rnd * (NumImages))
  284.  
  285.   'Build the BODY tag and write it to the browser
  286.   BODYTAG = "<BODY BACKGROUND=" & Chr(34) & BackgroundPath & Image(RandomNumber) & Chr(34) & ">"
  287.   Document.Write BODYTAG
  288.   'You can include following line:
  289. 'Document.Write "This script picked the image '" & Image(RandomNumber) & "'"
  290.  
  291. -->
  292. </SCRIPT>
  293. <3><!-- Do not set the Background initially.  The script won't display the
  294. background if it was already specified in the body tag. However, you can set 
  295. the background color. -->
  296. <BODY BGCOLOR="#FFFFC8">
  297. <4><!-- Your text-->
  298. <H1>Random Image Displayer</H1>
  299. This page automatically loaded a background image at random.
  300. <End>
  301.  
  302. "Random background, colors and fonts Changer"
  303. <1>This script changes background, forecolor, link colors and fonts. Make sure that your images have file names: 1.jpg, 2.jpg, 3.jpg and 4.jpg. Insert Part 2 as your <BODY> tag and Part 3 in body of your document. Change YOUR LINK 1...,YOUR LINK DESCRIPTION 1..... and contents of your page.
  304. <2>
  305. <3><SCRIPT LANGUAGE="vbscript">
  306.  'create arrays for the body tag variables
  307.  Dim Lnk(4)
  308.  Dim VLnk(4)
  309.  Dim FColor(4)
  310.  Dim Fnt(4)
  311.  'create a global variable
  312.  Dim x
  313.  
  314.  'Variables for Version No. 1
  315.  Lnk(0) = "Fuchsia"
  316.  Vlnk(0) = "Silver"
  317.  FColor(0) = "Lime"
  318.  Fnt(0) = "tahoma"
  319.  
  320.  'Variables for Version No. 2
  321.  Lnk(1) = "blue"
  322.  Vlnk(1) = "fushia"
  323.  FColor(1) = "white"
  324.  Fnt(1) = "times roman"
  325.  
  326.  'Variables for Version No. 3
  327.  Lnk(2) = "green"
  328.  Vlnk(2) = "maroon"
  329.  FColor(2) = "blue"
  330.  Fnt(2) = "arial"
  331.  
  332.  'Variables for Version No. 4
  333.  Lnk(3) = "lime"
  334.  Vlnk(3) = "teal"
  335.  FColor(3) = "yellow"
  336.  Fnt(3) = "ms sans serif"
  337.  
  338.  'Variables for Version No. 5
  339.  Lnk(4) = "navy"
  340.  Vlnk(4) = "gray"
  341.  FColor(4) = "black"
  342.  Fnt(4) = "verdana"
  343.  
  344.  'initialise the generator 
  345.  RANDOMIZE
  346.  
  347.  'generate a random number twixt none and four
  348.  x = Int((5 - 1 + 1) * Rnd)
  349.  
  350.  'turn said number into a string making sure there are no spaces
  351.  strX = Trim(CStr(x))
  352.  
  353.  'add the jpg file extension and youve got a file name
  354.  randomimage = strX & ".jpg"
  355.  
  356.  'write the randomly generated body tag into the document
  357.  Document.Write "<BODY BACKGROUND=" & Chr(34) & randomimage & Chr(34)
  358.  Document.Write " TEXT=" & FColor(x)
  359.  Document.Write " LINK=" & Lnk(x)
  360.  Document.Write " VLINK=" & Vlnk(x)
  361.  Document.Write ">"
  362.  Document.Write "<FONT FACE=" & Fnt(x) & " SIZE=3>"
  363. </SCRIPT>
  364. <4<!--You can edit following lines as you wish-->
  365. This is version No.
  366. <!--This writes the Version Number using the x global varaible-->
  367. <SCRIPT LANGUAGE="vbscript">
  368. Document.Write CStr(x+1)
  369. </SCRIPT>
  370.  
  371. <CENTER>
  372. <H2>YOUR TITLE</H2>
  373. <B>
  374. <A HREF="YOUR LINK 1">YOUR LINK DESCRIPTION 1</A><BR>
  375. <A HREF="YOUR LINK 2">YOUR LINK DESCRIPTION 2</A><BR>
  376. <A HREF="YOUR LINK 3">YOUR LINK DESCRIPTION 3</A><BR>
  377. <!--Add as many links as you want-->
  378. </B>
  379. <P>
  380.  
  381. <H3>I have a randomly changing Home Page...see if you can collect the set. Your text goes here !!!</H3>
  382. </CENTER>
  383. </FONT>
  384. <End>
  385.  
  386. "Day - Night Link and color Changer"
  387. <1>This script changes background, color, links, link description and text according to time. Insert Part 1 in between <HEAD>and</HEAD> tags, insert Part 2 as your <BODY> tag (it's being writen automaticly) and Part 3 in body of your document. Change YOUR NIGHT TIME TITLE, YOUR DAY TIME TITLE, YOUR NIGHT TIME LINK DESCRIPTION 1...,YOUR DAY TIME LINK DESCRIPTION 1..., YOUR NIGHT TIME LINK 1..., YOUR DAY TIME LINK 1..., DAY TIME IMAGE, and NIGHT TIME IMAGE.
  388. <2><SCRIPT LANGUAGE="vbscript">
  389.  'create arrays for the body tag variables
  390.  Dim Lnk(1)
  391.  Dim VLnk(1)
  392.  Dim FColor(1)
  393.  Dim Fnt(1)
  394.  Dim Greet(1)
  395.  
  396.  'declare two dimensional arrays for the links
  397.  Dim LinkDesc(1,4)
  398.  Dim LinkURL(1,4)
  399.  
  400.  'declare two constants
  401.  Dim DAYTIME
  402.  Dim NIGHTTIME 
  403.  DAYTIME = 1
  404.  NIGHTTIME = 0
  405.  'create a global variable
  406.  Dim x
  407.  
  408.  'Variables for Nighttime Version, can be changed
  409.  Lnk(NIGHTTIME) = "blue"
  410.  Vlnk(NIGHTTIME) = "fushia"
  411.  FColor(NIGHTTIME) = "yellow"
  412.  Fnt(NIGHTTIME) = "times roman"
  413.  Greet(NIGHTTIME) = "YOUR NIGHT TIME TITLE"
  414.  
  415.  'Variables for Daytime Version, can be changed 
  416.  Lnk(DAYTIME) = "red"
  417.  Vlnk(DAYTIME) = "teal"
  418.  FColor(DAYTIME) = "orange"
  419.  Fnt(DAYTIME) = "ms sans serif"
  420.  Greet(DAYTIME) = "YOUR DAY TIME TITLE"
  421.  
  422.  'Descriptions for the Links
  423.  LinkDesc(NIGHTTIME,0) = "YOUR NIGHT TIME LINK DESCRIPTION 1"
  424.  LinkDesc(NIGHTTIME,1) = "YOUR NIGHT TIME LINK DESCRIPTION 2"
  425.  LinkDesc(NIGHTTIME,2) = "YOUR NIGHT TIME LINK DESCRIPTION 3"
  426.  LinkDesc(NIGHTTIME,3) = "YOUR NIGHT TIME LINK DESCRIPTION 4"
  427.  LinkDesc(NIGHTTIME,4) = "YOUR NIGHT TIME LINK DESCRIPTION 5"
  428.  LinkDesc(DAYTIME,0) = "YOUR DAY TIME LINK DESCRIPTION 1"
  429.  LinkDesc(DAYTIME,1) = "YOUR DAY TIME LINK DESCRIPTION 2"
  430.  LinkDesc(DAYTIME,2) = "YOUR DAY TIME LINK DESCRIPTION 3"
  431.  LinkDesc(DAYTIME,3) = "YOUR DAY TIME LINK DESCRIPTION 4"
  432.  LinkDesc(DAYTIME,4) = "YOUR DAY TIME LINK DESCRIPTION 5"
  433.  
  434.  'URLs for the Links 
  435.  LinkURL(NIGHTTIME,0) = "YOUR NIGHT TIME LINK 1"
  436.  LinkURL(NIGHTTIME,1) = "YOUR NIGHT TIME LINK 2"
  437.  LinkURL(NIGHTTIME,2) = "YOUR NIGHT TIME LINK 3"
  438.  LinkURL(NIGHTTIME,3) = "YOUR NIGHT TIME LINK 4"
  439.  LinkURL(NIGHTTIME,4) = "YOUR NIGHT TIME LINK 5"
  440.  LinkURL(DAYTIME,0) = "YOUR DAY TIME LINK 1"
  441.  LinkURL(DAYTIME,1) = "YOUR DAY TIME LINK 2"
  442.  LinkURL(DAYTIME,2) = "YOUR DAY TIME LINK 3"
  443.  LinkURL(DAYTIME,3) = "YOUR DAY TIME LINK 4"
  444.  LinkURL(DAYTIME,4) = "YOUR DAY TIME LINK 5"
  445.  
  446.  'Determine whether its day or night
  447.  TheHour = Hour(Now())
  448.  If TheHour >= 5 and TheHour < 19 Then
  449.      x = DAYTIME
  450.      theimage = "DAY TIME IMAGE"
  451.  Else
  452.      x = NIGHTTIME
  453.      theimage = "NIGHT TIME IMAGE"
  454.  End If
  455. <3>'write the body tag etc into the document
  456.    Document.Write "<BODY BACKGROUND=" & Chr(34) & theimage & Chr(34)
  457.    Document.Write " TEXT=" & FColor(x)
  458.    Document.Write " LINK=" & Lnk(x)
  459.    Document.Write " VLINK=" & Vlnk(x)
  460.    Document.Write ">"
  461.    Document.Write "<FONT FACE=" & Fnt(x) & " SIZE=3>"
  462.    Document.Write "<CENTER>"
  463.    Document.Write "<H2>" & Greet(x) & "</H2><P><B>"
  464. <4>'write the links
  465.  For i = 0 to 4
  466.    Document.Write "<A HREF=" & Chr(34) & LinkURL(x,i) & Chr(34) & "><P>"
  467.    Document.Write LinkDesc(x,i)
  468.    Document.Write "</A>"
  469.  Next
  470. </SCRIPT>
  471. </CENTER>
  472. </FONT>
  473. <End>
  474.  
  475. "Combo box links #1"
  476. <1>Insert Part 3 anywhere in your body. Change YOUR LINK 1... and ITEM 1...
  477. <2>
  478. <3>
  479. <4><FORM NAME="ValidForm">                                  
  480.       <SELECT NAME="Redirect">
  481.        <OPTION VALUE="YOUR LINK 1">ITEM 1
  482.        <OPTION VALUE="YOUR LINK 2">ITEM 2
  483.        <OPTION VALUE="YOUR LINK 3">ITEM 3
  484. <!--You can add here as many items as you want-->    
  485.        </SELECT>                                                
  486.       <INPUT TYPE="button" NAME="btnGoRelocate" VALUE="Go">   
  487.      </FORM>     
  488.                                           
  489. <SCRIPT LANGUAGE="VBScript">
  490. <!--                
  491. Sub btnGoRelocate_onClick
  492.     set form = document.ValidForm
  493.     Dim TheIndex 
  494.     TheIndex = form.Redirect.selectedIndex
  495.     navigate form.Redirect.value
  496. End Sub
  497. -->
  498. </SCRIPT>
  499. <End>
  500.  
  501. "Combo box links #2"
  502. <1>Insert Part 3 anywhere in your body. Change YOUR LINK 1... and YOUR LINK DESCRIPTION 1...
  503. <2>
  504. <3>
  505. <4><SELECT NAME="SecondList" >
  506. <OPTION VALUE="Sample1">YOUR LINK DESCRIPTION 1
  507. <OPTION VALUE="Sample2">YOUR LINK DESCRIPTION 2
  508. <OPTION VALUE="Sample3">YOUR LINK DESCRIPTION 3
  509. <OPTION VALUE="Sample4">YOUR LINK DESCRIPTION 4
  510. <OPTION VALUE="Sample5">YOUR LINK DESCRIPTION 5
  511. </SELECT>
  512.  
  513. <SCRIPT LANGUAGE=VBSCRIPT>
  514.   sub SecondList_OnChange
  515.  
  516.     If SecondList.selectedindex = 0 then  
  517.     Window.Location.Href = "YOUR LINK 1"
  518.  
  519.     ElseIf SecondList.selectedindex = 1 then
  520.     Window.Location.Href = "YOUR LINK 2"
  521.  
  522.     ElseIf SecondList.selectedindex = 2 then
  523.     Window.Location.Href = "YOUR LINK 3"
  524.  
  525.     ElseIf SecondList.selectedindex = 3 then
  526.     Window.Location.Href = "YOUR LINK 4"
  527.  
  528.     ElseIf SecondList.selectedindex = 4 then
  529.     Window.Location.Href = "YOUR LINK 5"
  530.  
  531.     End If
  532.   end sub
  533.  
  534. </SCRIPT>
  535. <End>
  536.  
  537. "List box links"
  538. <1>Insert Part 3 anywhere in your body. Change YOUR LINK 1... and YOUR LINK DESCRIPTION 1...
  539. <2>
  540. <3>
  541. <4><FORM NAME="ValidForm">
  542. <SELECT NAME="PAGETARGET" size=4>
  543. <OPTION VALUE="YOUR LINK 1">YOUR LINK DESCRIPTION 1
  544. <OPTION VALUE="YOUR LINK 1">YOUR LINK DESCRIPTION 1
  545. <OPTION VALUE="YOUR LINK 1">YOUR LINK DESCRIPTION 1
  546. <OPTION VALUE="YOUR LINK 1">YOUR LINK DESCRIPTION 1
  547. <!--You can add here as many items as you want-->    
  548. </SELECT>
  549. </FORM>
  550.  
  551. <SCRIPT LANGUAGE=VBSCRIPT>
  552.  Sub PAGETARGET_onDblClick
  553.     set form = document.ValidForm
  554.     Dim TheIndex 
  555.     TheIndex = form.PAGETARGET.selectedIndex
  556.     navigate form.PAGETARGET.value
  557. End Sub
  558.  
  559. </SCRIPT>
  560. <End>
  561.  
  562. "Mouse over link - Status bar message"
  563. <1>Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 in body. Change YOUR MESSAGE, LINK DESCRIPTION and YOUR LINK. You can add as meny links as you want, matching Sub and A NAME (link1, link2...
  564. <2><SCRIPT LANGUAGE="vbscript">
  565.    Sub link1_OnMouseOver
  566.        Status = "YOUR MESSAGE" 
  567.        timerID = SetTimeOut("Status=''",2000)
  568.    End Sub
  569.   </SCRIPT>
  570. <3>
  571. <4><A HREF="YOUR LINK" NAME="link1">LINK DESCRIPTION</A>
  572. <End>
  573.  
  574. "Links with description in Text Area"
  575. <1>Link descriptions are being displayed in TextArea "OnMouseOver". Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 in body. Change Text Description 1..., Your Link 1... and Your Link Descripotion 1... 
  576. <2><SCRIPT language="vbscript">
  577. Dim DescribeLink(5)
  578. DescribeLink(0) = "Text Description 1"
  579. DescribeLink(1) = "Text Description 2"
  580. DescribeLink(2) = "Text Description 3"
  581. DescribeLink(3) = "Text Description 4"
  582. DescribeLink(4) = "Text Description 5"
  583. DescribeLink(5) = "Text Description 6"
  584.  
  585. Sub ShowLink(LinkNo)
  586.   text1.value = DescribeLink(CInt(LinkNo))
  587. End Sub
  588.  
  589. </SCRIPT>
  590. <3>
  591. <4><FONT FACE="Arial" SIZE=2>
  592. <CENTER>
  593. <TABLE>
  594. <TR>
  595. <TD ALIGN=LEFT><B>
  596. <A LANGUAGE="vbscript" NAME="Link1" OnMouseOver="call showLink(0)" HREF="YourLink 1">Your Link Descripotion 1</A> <BR>
  597. <A LANGUAGE="vbscript" NAME="Link2" OnMouseOver="call showLink(1)" HREF="YourLink 2">Your Link Descripotion 2</A> <BR>
  598. <A LANGUAGE="vbscript" NAME="Link3" OnMouseOver="call showLink(2)" HREF="YourLink 3">Your Link Descripotion 3</A> <BR>
  599. <A LANGUAGE="vbscript" NAME="Link4" OnMouseOver="call showLink(3)" HREF="YourLink 4">Your Link Descripotion 4</A> <BR>
  600. <A LANGUAGE="vbscript" NAME="Link5" OnMouseOver="call showLink(4)" HREF="YourLink 5">Your Link Descripotion 5</A> <BR>
  601. <A LANGUAGE="vbscript" NAME="Link6" OnMouseOver="call showLink(5)" HREF="YourLink 6">Your Link Descripotion 6</A> <BR>
  602. </B></TD>
  603. <TD ALIGN=RIGHT>
  604. <TEXTAREA NAME="text1" COLS=30 ROWS=7></TEXTAREA>
  605. </TD>
  606. </TR>
  607. </TABLE>
  608. </CENTER>
  609. </FONT>
  610. <End>
  611.  
  612. "Links with description on Label"
  613. <1>Link descriptions are being displayed on Label "OnMouseOver". Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 in body. Change Text Description 1..., Your Link 1... and Your Link Descripotion 1... 
  614. <2><SCRIPT language="vbscript">
  615. Dim DescribeLink(5)
  616. DescribeLink(0) = "Text Description 1"
  617. DescribeLink(1) = "Text Description 2"
  618. DescribeLink(2) = "Text Description 3"
  619. DescribeLink(3) = "Text Description 4"
  620. DescribeLink(4) = "Text Description 5"
  621. DescribeLink(5) = "Text Description 6"
  622.  
  623. Sub ShowLink(LinkNo)
  624.   Label1.Caption = DescribeLink(CInt(LinkNo))
  625.   tID = setTimeout("ClearDesc()",5000)
  626. End Sub
  627.  
  628. Sub LinkTo_onMouseMove(s,b,x,y)
  629.   tID = setTimeout("ClearDesc()",5000)
  630. End Sub
  631.  
  632. Sub ClearDesc()
  633.     Status = ""
  634.     Label1.Caption = ""
  635. End Sub
  636.  
  637. </SCRIPT>
  638. <3>
  639. <4><HR>
  640. <A LANGUAGE="vbscript" NAME="LinkTo" OnMouseOver="call showLink(0)" HREF="Your Link 1">Your Link Description 1</A><BR>
  641. <A LANGUAGE="vbscript" NAME="LinkTo" OnMouseOver="call showLink(1)" HREF="Your Link 2">Your Link Description 2</A><BR>
  642. <A LANGUAGE="vbscript" NAME="LinkTo" OnMouseOver="call showLink(2)" HREF="Your Link 3">Your Link Description 3</A><BR>
  643. <A LANGUAGE="vbscript" NAME="LinkTo" OnMouseOver="call showLink(3)" HREF="Your Link 4">Your Link Description 4</A><BR>
  644. <A LANGUAGE="vbscript" NAME="LinkTo" OnMouseOver="call showLink(4)" HREF="Your Link 5">Your Link Description 5</A><BR>
  645. <A LANGUAGE="vbscript" NAME="LinkTo" OnMouseOver="call showLink(5)" HREF="Your Link 6">Your Link Description 6</A><BR>
  646. <HR>
  647. <OBJECT ID="Label1" WIDTH=439 HEIGHT=24
  648.  CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0">
  649.     <PARAM NAME="ForeColor" VALUE="33023">
  650.     <PARAM NAME="BackColor" VALUE="16777088">
  651.     <PARAM NAME="Size" VALUE="11610;635">
  652.     <PARAM NAME="FontEffects" VALUE="1073741827">
  653.     <PARAM NAME="FontHeight" VALUE="240">
  654.     <PARAM NAME="FontCharSet" VALUE="0">
  655.     <PARAM NAME="FontPitchAndFamily" VALUE="2">
  656.     <PARAM NAME="ParagraphAlign" VALUE="3">
  657.     <PARAM NAME="FontWeight" VALUE="700">
  658. </OBJECT>
  659. <End>
  660.  
  661. "Link with Alert description"
  662. <1>Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 wherever you want in body of your document. You can add as meny links as you want, matching Sub and A NAME (link1, link2...
  663. <2><SCRIPT LANGUAGE="vbscript">
  664.     Sub link1_onClick
  665.         Alert "Description of Page"
  666.     End Sub
  667. </SCRIPT>
  668. <3>
  669. <4><A NAME="link1" HREF="YOUR LINK">YOUR LINK DESCRIPTION</A>
  670. <End>
  671.  
  672. "Button click - open new window"
  673. <1>This script opens a new window when you click on the button. Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 in body. Change YOUR LINK and BUTTON CAPTION. You can also change attributes of new window.(strOptions)
  674. <2><SCRIPT LANGUAGE="vbscript">
  675.    Sub cmdOpenIt_OnClick
  676.     dim strOptions
  677.      
  678.     strOptions = "toolbar=No, location=No, directories=Yes, "
  679.     strOptions = strOptions & "status=Yes, menubar=Yes, scrollbars=No, "
  680.     strOptions = strOptions & "resizable=Yes, width=200, height=200"
  681.     Window.Open "YOUR LINK", "myNewWindow", strOptions
  682.    End Sub
  683.   </SCRIPT>
  684. <3>
  685. <4><INPUT TYPE="button" NAME="cmdOpenIt" VALUE="BUTTON CAPTION">
  686. <End>
  687.  
  688. "Prompt - User input"
  689. <1>Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 wherever you want in body of your document.
  690. <2><SCRIPT LANGUAGE="vbscript">
  691.    Sub cmdPromptIt_OnClick
  692.     Dim strInput
  693.  
  694.     strInput = Prompt("Please enter your name","")
  695.  
  696.     Alert "Hello " & strInput
  697.  
  698.    End Sub
  699.   </SCRIPT>
  700. <3>
  701. <4><INPUT TYPE="button" NAME="cmdPromptIt" VALUE="User Input">
  702.  
  703. "Fade In #1"
  704. <1>Fade in effecat with two titles. Insert Part 2 as your <BODY> tag, insert Part 3 in body of your document. Change TITLEs...
  705. <2>
  706. <3><BODY BGCOLOR = FFFFFF>
  707. <4><CENTER><Font face = Arial size = 4 color = ffffff>
  708. <SCRIPT LANGUAGE="VBScript">
  709. For i = 255 To 1 Step -5
  710.     x = Hex(i)
  711.     Document.Bgcolor = x & x & x
  712.  If i = 255 Then
  713.   Document.Write "YOUR TITLE NO. 1"
  714.  End If
  715. Next
  716.   Document.Bgcolor = "000000"
  717. </SCRIPT>
  718. </Font>
  719. </CENTER>
  720.  
  721. <BODY BGCOLOR=BLACK>
  722.  
  723. <FONT SIZE=7 COLOR = FFFFFF><B><I><CENTER>YOUR TITLE NO. 2</CENTER></I></B></FONT>
  724. <End>
  725.  
  726. "Fade In #2"
  727. <1>Insert Part 2 as your <BODY> tag, insert Part 3 in body of your document. Change TITLEs... and Your Text...
  728. <2>
  729. <3><BODY Bgcolor = "000000">
  730. <4><CENTER><Font face = Tahoma size = 6>
  731. <SCRIPT LANGUAGE="VBScript">
  732. For i = 1 To 255 Step 5
  733.     x = Hex(i)
  734.     Document.Bgcolor = x & x & x
  735.  If i = 1 Then
  736.   Document.Write "YOUR TITLE NO. 1
  737.  End If
  738. Next
  739.   Document.Bgcolor = "ffffff"
  740. </SCRIPT>
  741. </Font>
  742. </CENTER>
  743. <BODY BGCOLOR=WHITE>
  744. <p>
  745. <FONT SIZE=4><B><I><CENTER>YOUR TITLE NO. 2</CENTER></I></B></FONT>
  746. <p>
  747. Your Text, Your Text, Your Text, Your Text, Your Text, Your Text, Your Text, 
  748. Your Text, Your Text, Your Text, Your Text, Your Text, Your Text, Your Text, 
  749. Your Text, Your Text, Your Text, Your Text, Your Text, Your Text...........
  750. <p>
  751. <End>
  752.  
  753. "Fade Text #1"
  754. <1>This script lets you display text with a fade-out effect. You can specify the text to display, whether to fade in or out, whether the fading is to black or white, and the color to fade. Try changing attributes in line(s) FadeText("YOUT TEXT",False,False,True,False,False). The effect greatly depends on the background color. Insert Part 1 in between <HEAD>and</HEAD>
  755. tags, Part 2 as your <BODY> tag and Part 3 in body. Change Your Page Title goes here.
  756. <2><SCRIPT LANGUAGE=VBScript>
  757. <!---
  758. Function FadeText(Text,BlackFade,FadeIn,ByVal Red, ByVal Green, ByVal Blue)
  759.  
  760.     NumChars=Len(Text)
  761.     If Not BlackFade Then
  762.         Red=Not Red
  763.     Green=Not Green
  764.     Blue=Not Blue
  765.     End If
  766.     OutPut=""
  767.     For j=1 To NumChars
  768.         If FadeIn Then x=((255*(j-1))\(NumChars-1))
  769.         If Not FadeIn Then x=255-((255*(j-1))\(NumChars-1))
  770.         If BlackFade then
  771.             R=Hex(-Red*x)
  772.         G=Hex(-Green*x)
  773.         B=Hex(-Blue*x)
  774.         End If
  775.         If Not BlackFade then
  776.             R=Hex(255-(-Red*x))
  777.         G=Hex(255-(-green*x))
  778.         B=Hex(255-(-Blue*x))
  779.         End If
  780.         If Len(R)=1 Then R="0" & R
  781.         If Len(G)=1 Then G="0" & G
  782.         If Len(B)=1 Then B="0" & B
  783.  Output=OutPut & "<FONT COLOR=" & R & G & B & ">" & Mid(Text,j,1)& "</FONT>"
  784.     Next
  785.     Document.Write OutPut
  786. End Function
  787. --->
  788. </SCRIPT>
  789. <3><BODY BGCOLOR=#000000 TEXT=#000000 Language=VBScript>
  790. <4><SPAN STYLE="font: 32pt Comic Sans MS; text-align=Center">
  791. <SCRIPT LANGUAGE=VBScript>
  792. <!---
  793. Document.Write FadeText("Your Page Ti",False,False,True,False,False)
  794. Document.Write FadeText("tle goes here",False,True,True,False,True)
  795. --->
  796. </SCRIPT>
  797. </SPAN>
  798. <End>
  799.  
  800. "Fade Text #2"
  801. <1>You can fade out whole blocks of text. Insert Part 1 in between <HEAD>and</HEAD>tags, Part 2 as your <BODY> tag and Part 3 in body. Don't forget to change text.
  802. <2><SCRIPT LANGUAGE=VBScript>
  803. <!---
  804. Function FadeText(Text,BlackFade,FadeIn,ByVal Red, ByVal Green, ByVal Blue)
  805.     NumChars=Len(Text)
  806.     If Not BlackFade Then
  807.         Red=Not Red
  808.         Green=Not Green
  809.       Blue=Not Blue
  810.     End If
  811.     OutPut=""
  812.     For j=1 To NumChars
  813.         If FadeIn Then x=((255*(j-1))\(NumChars-1))
  814.         If Not FadeIn Then x=255-((255*(j-1))\(NumChars-1))
  815.         If BlackFade then
  816.             R=Hex(-Red*x)
  817.         G=Hex(-Green*x)
  818.         B=Hex(-Blue*x)
  819.         End If
  820.         If Not BlackFade then
  821.             R=Hex(255-(-Red*x))
  822.         G=Hex(255-(-green*x))
  823.         B=Hex(255-(-Blue*x))
  824.         End If
  825.         If Len(R)=1 Then R="0" & R
  826.         If Len(G)=1 Then G="0" & G
  827.         If Len(B)=1 Then B="0" & B
  828. Output=OutPut & "<FONT COLOR=" & R & G & B & ">" & Mid(Text,j,1)& "</FONT>"
  829.     Next
  830.     Document.Write OutPut
  831. End Function
  832. --->
  833. </SCRIPT>
  834. <3><BODY BGCOLOR=#5f5f5f TEXT=#000000 Language=VBScript>
  835. <4><SCRIPT LANGUAGE=VBScript>
  836. <!---
  837. Document.Write "<CENTER>"
  838. Document.Write "<H2>"
  839.     Document.Write FadeText("Yet Another Example",False,False,True,True,False)
  840.     Document.Write "</H2>"
  841.  
  842.     Document.Write "<FONT Face= ""Comic Sans MS"" SIZE=4>"
  843.     Document.Write FadeText("In some cases, you can get some interesting",       False,False,True,True,False)&"<BR>"
  844.     Document.Write FadeText("effects by using this function with a lengthy",     False,False,True,True,False)&"<BR>"
  845.     Document.Write FadeText("block of text. In fact, you're seeing an example",  False,False,True,True,False)&"<BR>"
  846.     Document.Write FadeText("of this right now. In some cases, you can get some",False,False,True,True,False)&"<BR>"
  847.     Document.Write FadeText("interesting effects by using this function with a", False,False,True,True,False)&"<BR>"
  848.     Document.Write FadeText("lengthy block of text. In fact, you're seeing an",  False,False,True,True,False)&"<BR>"
  849.     Document.Write FadeText("example of this right now.",                        False,False,True,True,False)&"<BR>"
  850.       Document.Write "</FONT>"
  851. Document.Write "</CENTER>"
  852. --->
  853. </SCRIPT>
  854. <End>
  855.  
  856. "Changing foreground and background colors"
  857. <1>Insert Part 1 in between your </HEAD>and</HEAD> tags and Part 3 anywhere in body.
  858. <2><SCRIPT LANGUAGE="vbscript">
  859.    Document.bgColor = "White"
  860.    
  861.    Sub cmdChangeBGColor_OnClick
  862.      intIndex = Document.Colors.Background.SelectedIndex
  863.      strColorChoice = Document.Colors.Background.Options(intIndex).Text
  864.      Document.bgColor = strColorChoice 
  865.    End Sub
  866.  
  867.    Sub cmdChangeFGColor_OnClick
  868.      intIndex = Document.Colors.ForeGround.SelectedIndex
  869.      strColorChoice = Document.Colors.ForeGround.Options(intIndex).Text
  870.      Document.fgColor = strColorChoice 
  871.    End Sub
  872.   </SCRIPT>
  873. <3>
  874. <4><FORM NAME="Colors">
  875.     <SELECT NAME="BackGround">
  876.      <OPTION>White
  877.      <OPTION>Black
  878.      <OPTION>Blue
  879.      <OPTION>Red
  880.      <OPTION>Yellow
  881.      <OPTION>Fushia
  882.      <OPTION>Gray
  883.      <OPTION>Lime
  884.      <OPTION>Maroon
  885.      <OPTION>Navy
  886.      <OPTION>Olive
  887.      <OPTION>Purple
  888.      <OPTION>Silver
  889.      <OPTION>Teal
  890.     </SELECT>
  891.  
  892.     <INPUT TYPE="button" NAME="cmdChangeBGColor" VALUE="Change the Background">    
  893.  
  894.     <SELECT NAME="ForeGround">
  895.      <OPTION>White
  896.      <OPTION>Black
  897.      <OPTION>Blue
  898.      <OPTION>Red
  899.      <OPTION>Yellow
  900.      <OPTION>Aqua
  901.      <OPTION>Fushia
  902.      <OPTION>Gray
  903.      <OPTION>Lime
  904.      <OPTION>Maroon
  905.      <OPTION>Navy
  906.      <OPTION>Olive
  907.      <OPTION>Purple
  908.      <OPTION>Silver
  909.      <OPTION>Teal
  910.     </SELECT>
  911.     <INPUT TYPE="button" NAME="cmdChangeFGColor" VALUE="Change the Foreground">
  912.    </FORM>
  913. <End>
  914.  
  915. "Reveal transition"
  916. <1>Cool effect using reveal filter. Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3in body. Change YOUR IMAGE FILE, IMAGEWIDTH, ALTEXT and IMAGEHEIGHT.
  917. <2><script Language=VBScript>
  918.  
  919.     Sub Window_onLoad()
  920.         logohead.filters.revealtrans.Apply()
  921.         logohead.style.visibility = ""
  922.         logohead.filters.revealtrans.Play()
  923.     end Sub
  924.   
  925.   </script>
  926. <3>
  927. <4><div id=bigdiv>
  928.     <p align=center>
  929.     <img id=logohead src="YOUR IMAGE FILE" alt="ALTEXT"
  930.  style="visibility: hidden; width: IMAGEWIDTH; height: IMAGEHEIGHT; filter:revealtrans(duration=1.5 ,transition=12)" border=0>
  931. <End>
  932.  
  933. "Sequence"
  934. <1>Cool effect using sequencer and layers. Insert Part 1 in between <HEAD>and</HEAD>tags, Part 2 as your <BODY> tag and Part 3 in body. Set your images instead of 1.jpg, 2.jpg and 3.jpg(These are shiped as samples). Don't forget to change text.
  935.  
  936. <2><SCRIPT LANGUAGE="VBSCRIPT">
  937. <!--
  938. Sub Window_onload()
  939.     Call Seq("1").Play
  940. End Sub
  941.  
  942. Sub Seq_OnInit()
  943.     Call seq("1").at(1.000, "pic1_show", 1, 0.000, 1)
  944.     Call seq("1").at(3.000, "pic2_show", 1, 0.000, 1)
  945.     Call seq("1").at(6.000, "pic1_hide", 1, 0.000, 1)
  946.     Call seq("1").at(8.000, "pic3_show", 1, 0.000, 1)
  947.     Call seq("1").at(10.200, "pic2_hide", 1, 0.000, 1)
  948.     Call seq("1").at(11.100, "pic3_hide", 1, 0.000, 1)
  949.     
  950. End Sub
  951.  
  952. Sub pic1_show()
  953.     pic1.filters(0).apply()
  954.     pic1.style.visibility = "visible"
  955.     pic1.filters(0).play()
  956. End Sub
  957.  
  958. Sub pic2_show()
  959.     pic2.filters(0).apply()
  960.     pic2.style.visibility = "visible"
  961.     pic2.filters(0).play()
  962. End Sub
  963.  
  964. Sub pic1_hide()
  965.     pic1.filters(0).apply()
  966.     pic1.style.visibility = "hidden"
  967.     pic1.filters(0).play()
  968. End Sub
  969.  
  970. Sub pic3_show()
  971.     pic3.filters(0).apply()
  972.     pic3.style.visibility = "visible"
  973.     pic3.filters(0).play()
  974. End Sub
  975.  
  976. Sub pic2_hide()
  977.     pic2.filters(0).apply()
  978.     pic2.style.visibility = "hidden"
  979.     pic2.filters(0).play()
  980. End Sub
  981.  
  982. Sub pic3_hide()
  983.     pic3.filters(0).apply()
  984.     pic3.style.visibility = "hidden"
  985.     pic3.filters(0).play()
  986. End Sub
  987. -->
  988. </SCRIPT>
  989.  
  990. <style>
  991. #pic1 {
  992.     position: absolute;
  993.     top: 1;
  994.     left: 1;
  995. }
  996.  
  997. #pic2 {
  998.     position: absolute;
  999.     top: 150;
  1000.     left: 150;
  1001. }
  1002.  
  1003. #pic3 {
  1004.     position: absolute;
  1005.     top: 200;
  1006.     left: 300;
  1007. }
  1008. </style>
  1009. <3><BODY topmargin="0" leftmargin="0" bgcolor="#FFFFFF">
  1010. <4><FONT FACE = Harrington><FONT SIZE = 7><B><CENTER>Your Title</CENTER></B></FONT>
  1011. <P>
  1012. <FONT FACE = Arial><FONT SIZE = 4>
  1013. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here.
  1014. </FONT>
  1015.  
  1016. <CENTER>
  1017.  
  1018. <IMG id="pic1" SRC="1.jpg" WIDTH=300 HEIGHT=408 BORDER="0" style="position: absolute; left: 10; top: 10; z-index: 1; visibility: hidden; filter:blendTrans(duration=1.4)">
  1019.  
  1020. <IMG id="pic2" SRC="2.jpg" WIDTH=300 HEIGHT=207 BORDER=0 style="position: absolute; left: 110; top: 60; z-index: 1; visibility: hidden; filter:blendTrans(duration=1.4)">
  1021.  
  1022. <IMG id="pic3" SRC="3.jpg" WIDTH=300 HEIGHT=238 BORDER=0 style="position: absolute; left: 260; top: 110; z-index: 1; visibility: hidden; filter:blendTrans(duration=1.4)">
  1023.  
  1024. <OBJECT ID="Seq" CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96">
  1025. </OBJECT>
  1026.  
  1027. </CENTER>
  1028. <End>
  1029.  
  1030. "Animation - Left to Right and back"
  1031. <1>This is not an animated GIF. You need two different images(either .gif or .jpg) with same dimensions, but it's not necessery. Insert Part 1 in between <HEAD>and</HEAD> tags, Part 2 as your <BODY> tag and Part 3 in body. Change YOUR IMAGE 1 and YOUR IMAGE 2.
  1032. <2><script language=VBScript>
  1033. dim count
  1034. dim xadder
  1035. dim yadder
  1036. xadder = 5
  1037. yadder = 2
  1038.  
  1039. sub moveright
  1040.     count=count+1
  1041.     gearright.style.left = parseInt(gearright.style.left) + xadder
  1042.     gearleft.style.left = parseInt(gearleft.style.left) + xadder 
  1043.     if (count<500/xadder) then
  1044.         window.settimeout "moveright()", 100
  1045.     else
  1046.         count=0
  1047.         gearleft.style.visibility="visible"
  1048.         gearright.style.visibility="hidden"
  1049.         window.settimeout "moveleft()", 100
  1050.     end if
  1051. end sub
  1052.  
  1053. sub moveleft
  1054.     count=count+1
  1055.     gearleft.style.left = parseInt(gearleft.style.left) - xadder
  1056.     gearright.style.left = parseInt(gearright.style.left) - xadder
  1057.     if (count<500/xadder) then
  1058.         window.settimeout "moveleft()", 100
  1059.     else
  1060.         count=0
  1061.         gearleft.style.visibility="hidden"
  1062.         gearright.style.visibility="visible"
  1063.         window.settimeout "moveright()", 100
  1064.     end if
  1065. end sub
  1066.  
  1067. function parseInt(rnum)  'JavaScript has this function built in
  1068.     s=trim(rnum)
  1069.     if len(s)>2 then
  1070.         if right(s,2)="px" then
  1071.             s=left(s,len(s)-2)
  1072.         end if
  1073.     end if
  1074.     if isNumeric(s) then
  1075.         i=csng(s)
  1076.     else
  1077.         i=0
  1078.     end if
  1079.     parseInt=i
  1080. end function
  1081.  
  1082. </script>
  1083. <3><BODY BGCOLOR="Black" onload="moveright()">
  1084. <4><img id=gearright style="position:absolute;left:0;top:10;z-index:1" src="YOUR IMAGE 1">
  1085.  
  1086. <img id=gearleft style="position:absolute;left:0;top:10;visibility:hidden;z-index:1" src="YOUR IMAGE 2">
  1087. <End>
  1088.  
  1089. "Letter Shrink"
  1090. <1>Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 in body. Change YOUR, TEXT, HERE and contents of your page.
  1091. <2><SCRIPT LANGUAGE="VBScript">
  1092. <!--
  1093. Dim i, j, k
  1094. i = 1
  1095. j = 1
  1096. k = 1
  1097.  
  1098. Dim l, m, n
  1099. l = 1
  1100. m = 1
  1101. n = 1
  1102.  
  1103. Dim o, p, q
  1104. z = 1
  1105. p = 1
  1106. q = 1
  1107.  
  1108.  
  1109. Sub Window_onload()
  1110.     Call Seq("1").Play
  1111.     Call Seq("2").Play
  1112.     Call Seq("3").Play
  1113. End Sub
  1114.  
  1115. Sub Seq_OnInit()
  1116.     Call seq("1").at(0.000, "GrowIletter", 10, 0.002, 1)
  1117.     Call seq("1").at(2.000, "ShowIletter", 1, 0.002, 1)
  1118.     Call seq("1").at(3.000, "ShrinkIletter", 10, 0.002, 1)
  1119.     Call seq("2").at(2.000, "GrowEletter", 10, 0.002, 1)
  1120.     Call seq("2").at(3.000, "ShowEletter", 1, 0.002, 1)
  1121.     Call seq("2").at(4.000, "ShrinkEletter", 10, 0.002, 1)
  1122.     Call seq("3").at(3.000, "Growfourletter", 10, 0.002, 1)
  1123.     Call seq("3").at(4.000, "Showfourletter", 1, 0.002, 1)
  1124.     Call seq("3").at(5.000, "Shrinkfourletter", 10, 0.002, 1)
  1125. End Sub
  1126.  
  1127. Sub GrowIletter()
  1128.     If i < 10 then
  1129.         Call Iletter.Scale(1.2,1.2,0)
  1130.         Call Iletter.Rotate(1,0,0,0)
  1131.         i = i + 1
  1132.     Else
  1133.         Call seq("1").Play
  1134.         i = 1
  1135.     End If
  1136. End Sub
  1137.  
  1138. Sub showIletter()
  1139.     Iletter.style.visibility = "visible"
  1140. End Sub
  1141.  
  1142. Sub ShrinkIletter()
  1143.     If i < 10 then
  1144.         Call Iletter.Scale(.832,.832,0)
  1145.         Call Iletter.Rotate(-.1,0,0,0)
  1146.         i = i + 1
  1147.     Else
  1148.         i = 1
  1149.     End If
  1150. End Sub
  1151.  
  1152. Sub GrowEletter()
  1153.     If l < 10 then
  1154.         Call Eletter.Scale(1.2,1.2,0)
  1155.         Call Eletter.Rotate(0,0,0,0)
  1156.         l = l + 1
  1157.     Else
  1158.         Call seq("2").Play
  1159.         l = 1
  1160.     End If
  1161. End Sub
  1162.  
  1163. Sub showEletter()
  1164.     Eletter.style.visibility = "visible"
  1165. End Sub
  1166.  
  1167. Sub ShrinkEletter()
  1168.     If l < 10 then
  1169.         Call Eletter.Scale(.832,.832,0)
  1170.         Call Eletter.Rotate(0,0,0,0)
  1171.         l = l + 1 
  1172.     Else
  1173.         i = 1
  1174.     End If
  1175. End Sub
  1176.  
  1177. Sub Growfourletter()
  1178.     If z < 10 then
  1179.         Call fourletter.Scale(1.2,1.2,0)
  1180.         Call fourletter.Rotate(0,0,0,0)
  1181.         z = z + 1
  1182.     Else
  1183.         Call seq("3").Play
  1184.         z = 1
  1185.     End If
  1186. End Sub
  1187.  
  1188. Sub showfourletter()
  1189.     fourletter.style.visibility = "visible"
  1190. End Sub
  1191.  
  1192. Sub Shrinkfourletter()
  1193.     If z < 10 then
  1194.         Call fourletter.Scale(.832,.832,0)
  1195.         Call fourletter.Rotate(0,0,0,0)
  1196.         z = z + 1 
  1197.     Else
  1198.         z = 1
  1199.     End If
  1200. End Sub
  1201. //-->
  1202. </SCRIPT>
  1203. <3>
  1204. <4><FONT FACE = Mistral><FONT SIZE = 7><B><CENTER>Your Title</CENTER></B></FONT>
  1205. <P>
  1206. <FONT FACE = Arial><FONT SIZE = 4>
  1207. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here. Your text goes here.
  1208. </FONT>
  1209.  
  1210. <OBJECT ID="Seq"
  1211.     CLASSID="CLSID:B0A6BAE2-AAF0-11d0-A152-00A0C908DB96">
  1212. </OBJECT>
  1213.  
  1214. <OBJECT id=Iletter
  1215. STYLE="POSITION:ABSOLUTE; HEIGHT: 600; LEFT: -520; TOP: 0; WIDTH: 1080; Z-INDEX: 30;visibility: visible" 
  1216. CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6">
  1217. <PARAM NAME="Line0001" VALUE="SetLineStyle(1)">
  1218. <PARAM NAME="Line0002" VALUE="SetFillColor(0, 0, 255)">
  1219. <PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
  1220. <PARAM NAME="Line0004" VALUE="SetFont('Tahoma', 40, 50, 0, 0, 0)">
  1221. <!--<PARAM NAME="Line0001" VALUE="SetFont(name, height, weight, isItalic, isUnderline, isStrikethrough)"> -->
  1222. <PARAM NAME="Line0005" VALUE="Text('YOUR', 0, 0)">
  1223. </OBJECT>
  1224.  
  1225. <OBJECT id=Eletter
  1226. STYLE="POSITION:ABSOLUTE; HEIGHT: 600; LEFT: -225; TOP: 0; WIDTH: 680; Z-INDEX: 30;visibility: visible" 
  1227. CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6">
  1228. <PARAM NAME="Line0001" VALUE="SetLineStyle(1)">
  1229. <PARAM NAME="Line0002" VALUE="SetFillColor(0, 255, 0)">
  1230. <PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
  1231. <PARAM NAME="Line0004" VALUE="SetFont('Tahoma', 40, 50, 0, 0, 0)">
  1232. <PARAM NAME="Line0005" VALUE="Text('TEXT', 0, 0)">
  1233. </OBJECT>
  1234.  
  1235. <OBJECT id=fourletter
  1236. STYLE="POSITION:ABSOLUTE; HEIGHT: 600; LEFT: -280; TOP: 0; WIDTH: 900; Z-INDEX: 30;visibility: visible" 
  1237. CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6">
  1238. <PARAM NAME="Line0001" VALUE="SetLineStyle(1)">
  1239. <PARAM NAME="Line0002" VALUE="SetFillColor(255, 0, 0)">
  1240. <PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
  1241. <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 50, 50, 0, 0, 0)">
  1242. <PARAM NAME="Line0005" VALUE="Text('HERE', 0, 0)">
  1243. </OBJECT>
  1244. <End>
  1245.  
  1246. "3D spining text"
  1247. <1>Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 in body. Set background color to black and change TEXT.
  1248. <2><SCRIPT LANGUAGE="VBScript">
  1249. <!--
  1250. ' Sets initial variables and letter starting positions
  1251. Sub Window_OnLoad()
  1252.     call SG1.Scale(0.50, 0.50, 0.50)
  1253.     call SG2.Scale(0.50, 0.50, 0.50)
  1254.     call SG3.Scale(0.50, 0.50, 0.50)
  1255.     call SG4.Scale(0.50, 0.50, 0.50)
  1256.     call SG1.Rotate(0, 0, 0)
  1257.     call SG2.Rotate(90, 0, 0)
  1258.     call SG3.Rotate(0, 90, 0)
  1259.     RotateAll
  1260. end sub
  1261.  
  1262. ' sets rotation speed and behavior as well as creating loop
  1263. Sub RotateAll
  1264.     Call SG1.Rotate(4,6,2)
  1265.     Call SG2.Rotate(4,6,2)
  1266.     Call SG3.Rotate(4,6,2)
  1267.     Call SG4.Rotate(4,6,2)
  1268.     FILK = Window.SetTimeOut("Call RotateAll", 10, "VBSCript")
  1269. End Sub
  1270. -->
  1271. </SCRIPT>
  1272. <3>
  1273. <4><!--Object creates solid light blue E, structured graphic using text set to fill -->
  1274. <OBJECT id=SG4
  1275. STYLE="POSITION:ABSOLUTE; HEIGHT: 400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 0" 
  1276. CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6">
  1277. <PARAM NAME="Line0001" VALUE="SetLineStyle(0)">
  1278. <PARAM NAME="Line0002" VALUE="SetFillColor(64, 64, 255)">
  1279. <PARAM NAME="Line0003" VALUE="SetFillStyle(1)">
  1280. <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 350, 700, 0, 0, 0)">
  1281. <PARAM NAME="Line0005" VALUE="Text('TEXT', -95, 87)">
  1282. </OBJECT>
  1283.  
  1284. <!--Object creates green outline around solid E, structured graphic using text set to no fill -->
  1285. <OBJECT id=SG1
  1286. STYLE="POSITION:ABSOLUTE; HEIGHT: 400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 0" 
  1287. CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6">
  1288. <PARAM NAME="Line0001" VALUE="SetLineStyle(1)">
  1289. <PARAM NAME="Line0002" VALUE="SetLineColor(0, 255, 255)">
  1290. <PARAM NAME="Line0003" VALUE="SetFillStyle(0)">
  1291. <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 350, 700, 0, 0, 0)">
  1292. <PARAM NAME="Line0005" VALUE="Text('TEXT', -95, 87)">
  1293. </OBJECT>
  1294.  
  1295. <!-- Object creates pink E that loops around -->
  1296. <OBJECT id=SG3 
  1297. STYLE="POSITION:ABSOLUTE; HEIGHT: 400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 1" 
  1298. CLASSID = "CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6">
  1299. <PARAM NAME="Line0001" VALUE="SetLineStyle(1)">
  1300. <PARAM NAME="Line0002" VALUE="SetLineColor(255, 0, 255)">
  1301. <PARAM NAME="Line0003" VALUE="SetFillStyle(0)">
  1302. <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 350, 700, 0, 0, 0)">
  1303. <PARAM NAME="Line0005" VALUE="Text('TEXT', -95, 87)">
  1304. </OBJECT>
  1305.  
  1306. <!--Creates yellow "E" at 90 degrees to others.-->
  1307. <OBJECT id=SG2
  1308. STYLE="POSITION:ABSOLUTE; HEIGHT: 400; LEFT: 5%; TOP: 0%; WIDTH: 500; ZINDEX: 2" 
  1309. CLASSID ="CLSID:369303C2-D7AC-11D0-89D5-00A0C90833E6">
  1310. <PARAM NAME="Line0001" VALUE="SetLineStyle(1)">
  1311. <PARAM NAME="Line0002" VALUE="SetLineColor(255, 255, 0)">
  1312. <PARAM NAME="Line0003" VALUE="SetFillStyle(0)">
  1313. <PARAM NAME="Line0004" VALUE="SetFont('Mistral', 350, 700, 0, 0, 0)">
  1314. <PARAM NAME="Line0005" VALUE="Text('TEXT', -95, 0)">
  1315. </OBJECT>
  1316. <End>
  1317.  
  1318. "EMail with validation"
  1319. <1>Submiting Email, confirmation of all entries. You can change 
  1320. method ("Post" or "Get") and you should set YOUR URL (including ENCTYPE 
  1321. if it's necessary EXP."application/x-www-form-urlencoded"). Insert Part 3
  1322. anywhere in body of your HTML document.
  1323. <2>
  1324. <3>
  1325. <4><CENTER>
  1326. <FORM NAME="frmRegister" METHOD="Post" ACTION="YOUR URL">
  1327.  
  1328.  <TABLE>
  1329.   <TR><TD><B>Name<TD><INPUT NAME="N" TYPE="TEXT" SIZE=35></TR>
  1330.   <TR><TD><B>Company<TD><INPUT NAME="h" TYPE="TEXT" SIZE=35></TR>
  1331.   <TR><TD><B>Your E-Mail<TD><INPUT NAME="j" TYPE="TEXT" SIZE=35></TR>
  1332.  </TABLE>
  1333. <P>
  1334.   <INPUT TYPE="submit" VALUE="Submit" onClick="Pressed" Language="VBScript">
  1335.   <INPUT TYPE="reset" VALUE="Clear">
  1336.  
  1337. </FORM>
  1338. <SCRIPT LANGUAGE="VBSCRIPT">
  1339.  sub pressed
  1340.    If frmRegister.j.value = "" Or frmRegister.h.value = "" Or frmRegister.N.value = "" Then 
  1341.       alert "Please, fill up all entries and Re-Submit"
  1342.    End If
  1343.  end sub
  1344. </SCRIPT>
  1345. <End>
  1346.  
  1347. "Calculating Dates"
  1348. <1>Insert Part 1 in between your </HEAD>and</HEAD> tags and Part 3 anywhere in body.
  1349. <2><SCRIPT LANGUAGE="vbscript">
  1350. <!--
  1351. Sub cmdButton1_OnClick
  1352.  
  1353.  If Not IsDate(Document.frmForm1.inputdate.Value) Then
  1354.      Alert "Not A Valid Date"
  1355.      Exit Sub
  1356.  End If
  1357.  
  1358.  y = Document.frmForm1.days.Value
  1359.  x = DateValue(Document.frmForm1.inputdate.Value)
  1360.  
  1361.  Alert DateSerial(Year(x), Month(x), Day(x) + y)
  1362.  
  1363. End Sub
  1364. -->
  1365. </SCRIPT>
  1366. <3>
  1367. <4><FORM NAME="frmForm1">
  1368. <CENTER>
  1369. Enter a Date <INPUT TYPE="text" NAME="inputdate"><BR>
  1370. Enter No of Days to Add <INPUT TYPE="text" NAME="days" SIZE=10><BR>
  1371. <INPUT TYPE="button" NAME="cmdButton1" VALUE="CALCULATE">
  1372. </FORM>
  1373. </CENTER>
  1374. <End>
  1375.  
  1376. "Countdown to New Year"
  1377. <1>Insert Part 3 in body of your document.
  1378. <2>
  1379. <3>
  1380. <4><CENTER>
  1381. <H2>There are only 
  1382. <SCRIPT LANGUAGE="vbscript">
  1383. x = DateValue("12/31")
  1384. y = Now()
  1385. z = int(x - y)
  1386. Document.Write z
  1387. </SCRIPT>
  1388.  
  1389. days of 
  1390. <SCRIPT LANGUAGE="vbscript">
  1391. Document.Write Year(Now())
  1392. </SCRIPT>
  1393.  left
  1394. </H2>
  1395. </CENTER>
  1396. <End>
  1397.  
  1398. "Credit Card Number Verification"
  1399. <1>This script checks if credit card is valid. Insert Part 1 in between your </HEAD>and</HEAD> tags and Part 3 anywhere in body.
  1400. <2><SCRIPT LANGUAGE="vbscript">
  1401.  
  1402.      Dim paymethod
  1403.      Dim TheCardType
  1404.  
  1405. Sub VerifyCard
  1406.     dim strCleanNo
  1407.     dim verified
  1408.     dim currdate
  1409.  
  1410.  If Not GoodDate() Then
  1411.   Exit Sub
  1412.  End If
  1413.  
  1414.  strCleanNo = CleanString()
  1415.  
  1416.  Select Case TheCardType
  1417.  Case "amex"
  1418.      verified = verifyAmex(strCleanNo)
  1419.  Case "visa"
  1420.  
  1421.      'this is a nested select
  1422.      Select Case Len(strCleanNo)
  1423.      Case 13
  1424.           verified = verifyV(strCleanNo)
  1425.      Case 16
  1426.           verified = verifyMC(strCleanNo)
  1427.      Case Else
  1428.           verified = False
  1429.      End Select
  1430.  
  1431.  Case "mastercard" 
  1432.      verified = verifyMC(strCleanNo)
  1433.  Case "discovery"
  1434.      verified = verifyMC(strCleanNo)
  1435.  Case Else
  1436.      Alert  "Please select a Card Type"
  1437.      Exit Sub
  1438.  End Select 
  1439.  
  1440.  If Not verified Then
  1441.      i = MsgBox("INVALID CARD NUMBER",16,"Cannot Submit Data")
  1442.  Else
  1443.      i = MsgBox("The Card No. is OK",64,"Submitting Data....")
  1444.  End If
  1445. End Sub
  1446.  
  1447. Function GoodDate()
  1448.  GoodDate = True
  1449.  If Not IsDate(Document.Form1.CardExp.Value) Then
  1450.      i = MsgBox("Invalid Expiry Date",16,"Cannot Submit Data") 
  1451.      GoodDate = False
  1452.  Else
  1453.      currdate = Month(Now()) & " " & Year(Now())
  1454.      If DateValue(Document.Form1.CardExp.Value) < DateValue(currdate) Then
  1455.           i = MsgBox("THIS CARD HAS EXPIRED",16,"Cannot Submit Data")
  1456.           GoodDate = False
  1457.      End If
  1458.  End If
  1459. End Function
  1460.  
  1461. Function VerifyAmex(ByVal CardNo)
  1462.     Dim amexarray(14)
  1463.     Dim tot
  1464.     tot=0
  1465.  
  1466.  If Len(CardNo) <> 15 Then
  1467.      VerifyAmex = False
  1468.      Exit Function
  1469.  End If
  1470.  
  1471.  For x = 2 to 10 step 2
  1472.      amexarray(x-1) = Mid(CardNo,x,1)
  1473.  Next
  1474.  
  1475.  For x = 12 to 15
  1476.      amexarray(x-1) = Mid(CardNo,x,1)
  1477.  Next 
  1478.  
  1479.  For x = 1 to 11 Step 2
  1480.      y = Mid(CardNo,x,1) * 2
  1481.      If y >= 10 Then
  1482.          amexarray(x-1) =  (y Mod 10) + 1
  1483.      Else
  1484.          amexarray(x-1) = y
  1485.      End If 
  1486.  Next
  1487.  
  1488.  For x = 0 to 14
  1489.      tot = tot + CInt(amexarray(x))
  1490.  Next 
  1491.  
  1492.  If tot Mod 10 = 0 Then 
  1493.      VerifyAmex = True
  1494.  Else
  1495.      VerifyAmex = False
  1496.  End If
  1497.  
  1498. End Function
  1499.  
  1500. Function VerifyV(ByVal CardNo)
  1501.     Dim vArray(12)
  1502.     Dim tot
  1503.     tot=0
  1504.  
  1505.  For x = 2 to 12 step 2
  1506.      vArray(x-1) = Mid(CardNo,x,1)
  1507.  Next
  1508.      vArray(12) = Mid(CardNo,13,1)
  1509.  
  1510.  'Mod returns the remainder of a division
  1511.  For x = 1 to 11 Step 2
  1512.      y = Mid(CardNo,x,1) * 2
  1513.      If y >= 10 Then
  1514.          vArray(x-1) =  (y Mod 10) + 1
  1515.      Else
  1516.          vArray(x-1) = y
  1517.      End If 
  1518.  Next
  1519.  
  1520.  For x = 0 to 12
  1521.      tot = tot + CInt(vArray(x))
  1522.  Next 
  1523.  
  1524.  If tot Mod 10 = 0 Then 
  1525.      VerifyV = True
  1526.  Else
  1527.      VerifyV = False
  1528.  End If
  1529.  
  1530. End Function
  1531.  
  1532. Function VerifyMC(ByVal CardNo)
  1533.     Dim tot
  1534.     tot=0
  1535.  
  1536.  
  1537.  If Len(CardNo) <> 16 Then
  1538.      VerifyMC = False
  1539.      Exit Function
  1540.  End If
  1541.  
  1542.  For x = 2 to 16 step 2
  1543.      tot = tot + CInt(Mid(CardNo,x,1))
  1544.  Next
  1545.  
  1546.  For x = 1 to 15 Step 2
  1547.      y = Mid(CardNo,x,1) * 2
  1548.      If y >= 10 Then
  1549.          tot = tot + CInt((y Mod 10) + 1)
  1550.      Else
  1551.          tot = tot + CInt(y)
  1552.      End If 
  1553.  Next
  1554.  
  1555.  If tot Mod 10 = 0 Then 
  1556.      VerifyMC = True
  1557.  Else
  1558.      VerifyMC = False
  1559.  End If
  1560.  
  1561. End Function
  1562.  
  1563. Function CleanString()
  1564.     dim strLen
  1565.     dim strCounter
  1566.     dim strClean 
  1567.     dim strDirty
  1568.   
  1569.  strDirty = Trim(Document.Form1.cardnumber.value)
  1570.  strLen = Len(strDirty)
  1571.  strClean = ""
  1572.  
  1573.  For strCounter = 1 to strLen
  1574.     If Asc(Mid(strDirty,strCounter,1)) < 58 AND Asc(Mid(strDirty,strCounter,1)) > 47 Then
  1575.         strClean = strClean  & Mid(strDirty,strCounter,1)
  1576.     End If
  1577.  Next
  1578.  
  1579.  CleanString = strClean
  1580. End Function
  1581.  
  1582. </SCRIPT>
  1583. <3>
  1584. <4><FORM NAME="Form1">
  1585.  
  1586. <TABLE>
  1587. <TD ALIGN=RIGHT><B>Visa</B>
  1588. <TD>
  1589. <INPUT LANGUAGE="vbscript" TYPE=RADIO VALUE="visa" ONCLICK="TheCardType= "visa""
  1590.          NAME="cardtype">
  1591.  
  1592. <TD ALIGN=RIGHT><B>Mastercard</B>
  1593. <TD><INPUT LANGUAGE="vbscript" TYPE=RADIO VALUE="mastercard" ONCLICK="TheCardType= "mastercard""
  1594.          NAME="cardtype">
  1595. <TR>
  1596. <TD ALIGN=RIGHT><B>American Express</B>
  1597. <TD><INPUT LANGUAGE="vbscript" TYPE=RADIO VALUE="amex" ONCLICK="TheCardType= "amex""
  1598.          NAME="cardtype">
  1599.  
  1600. <TD ALIGN=RIGHT><B>Discover</B>
  1601. <TD><INPUT LANGUAGE="vbscript" TYPE=RADIO VALUE="discovery" ONCLICK="TheCardType= "discovery""
  1602.          NAME="cardtype">
  1603. <TR>
  1604. </TABLE>
  1605. <P>
  1606. <TABLE>
  1607. <TD><B>Cardholder's Name</B>
  1608. <TD><INPUT TYPE=TEXT SIZE=30 NAME="cardholder">
  1609. <TR>
  1610. <TD><B>Card Number</B>
  1611. <TD><INPUT TYPE=TEXT SIZE=20 NAME="cardnumber">
  1612. <TR>
  1613. <TD><B>Card Expiration Date</B>
  1614. <TD><INPUT TYPE=TEXT SIZE=5 NAME="cardexp">
  1615. <TR>
  1616. </TABLE>
  1617. <P>
  1618.        <INPUT LANGUAGE="vbscript" TYPE=button VALUE="Check" ONCLICK=" call VerifyCard()">
  1619.      <INPUT TYPE=RESET VALUE="Clear/Reset">
  1620.    </FORM>
  1621. <End>
  1622.  
  1623. "How Dumb Are YOU? - Quiz"
  1624. <1>You can use this script as it is, or you can set up your questions and anweres. It's not realy that hard. Insert Part 1 in between <HEAD>and</HEAD> tags and Part 3 in body.
  1625. <2><script LANGUAGE="VBScript">
  1626. <!--
  1627. Dim Style, Message, Response, Title, Score
  1628. Dim Num1, Num2, Num3, Num4, Num5, Num6, Num7, Num8, Num9, Num10, Num11, Num12
  1629. Score = 0
  1630. Sub B1_OnClick()
  1631. Title = "Question One"
  1632. Style = 32
  1633. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1634. Message = "The answer is YES.  England has the same calendar that we do!"
  1635. Response = MsgBox(Message, Style, Title)
  1636. End Sub
  1637. Sub B2_OnClick()
  1638. Title = "Question Two"
  1639. Style = 32
  1640. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1641. Message = "The answer is One.  You're only born once!"
  1642. Response = MsgBox(Message, Style, Title)
  1643. End Sub
  1644. Sub B3_OnClick()
  1645. Title = "Question Three"
  1646. Style = 32
  1647. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1648. Message = "The answer is 12.  Each month has at least 28 days."
  1649. Response = MsgBox(Message, Style, Title)
  1650. End Sub
  1651. Sub B4_OnClick()
  1652. Title = "Question Four"
  1653. Style = 32
  1654. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1655. Message = "The answer is 6.  There are 3 outs for each team."
  1656. Response = MsgBox(Message, Style, Title)
  1657. End Sub
  1658. Sub B5_OnClick()
  1659. Title = "Question One"
  1660. Style = 32
  1661. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1662. Message = "The answer is NO.  If the man is a widower he's DEAD!"
  1663. Response = MsgBox(Message, Style, Title)
  1664. End Sub
  1665. Sub B6_OnClick()
  1666. Title = "Question One"
  1667. Style = 32
  1668. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1669. Message = "The answer is 70.  Because 30 divided by 0.5 is 60."
  1670. Response = MsgBox(Message, Style, Title)
  1671. End Sub
  1672. Sub B7_OnClick()
  1673. Title = "Question One"
  1674. Style = 32
  1675. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1676. Message = "The answer is 2.  YOU took two apples."
  1677. Response = MsgBox(Message, Style, Title)
  1678. End Sub
  1679. Sub B8_OnClick()
  1680. Title = "Question One"
  1681. Style = 32
  1682. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1683. Message = "The answer is 60.  One pill at the beginning; one pill 30 minutes later and one pill at the end"
  1684. Response = MsgBox(Message, Style, Title)
  1685. End Sub
  1686. Sub B9_OnClick()
  1687. Title = "Question One"
  1688. Style = 32
  1689. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1690. Message = "The answer is 9.  Because 9 sheep are still alive."
  1691. Response = MsgBox(Message, Style, Title)
  1692. End Sub
  1693. Sub B10_OnClick()
  1694. Title = "Question One"
  1695. Style = 32
  1696. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1697. Message = "The answer is NONE.  It was NOAH, not MOSES."
  1698. Response = MsgBox(Message, Style, Title)
  1699. End Sub
  1700. Sub B11_OnClick()
  1701. Title = "Question One"
  1702. Style = 32
  1703. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1704. Message = "The answer is MEAT.  Get it?"
  1705. Response = MsgBox(Message, Style, Title)
  1706. End Sub
  1707. Sub B12_OnClick()
  1708. Title = "Question One"
  1709. Style = 32
  1710. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1711. Message = "The answer is 12.  A dozen is a dozen is a dozen."
  1712. Response = MsgBox(Message, Style, Title)
  1713. End Sub
  1714. Sub B13_OnClick()
  1715. IF IsNumeric(T1.Value) = False Then
  1716. Num1 = 999
  1717. Else
  1718. Num1 = T1.Value
  1719. End If
  1720.  
  1721. IF IsNumeric(T2.Value) = False Then
  1722. Num2 = 999
  1723. Else
  1724. Num2 = T2.Value
  1725. End If
  1726.  
  1727. IF IsNumeric(T3.Value) = False Then
  1728. Num3 = 999
  1729. Else
  1730. Num3 = T3.Value
  1731. End If
  1732.  
  1733. IF IsNumeric(T4.Value) = False Then
  1734. Num4 = 999
  1735. Else
  1736. Num4 = T4.Value
  1737. End If
  1738.  
  1739. IF IsNumeric(T5.Value) = False Then
  1740. Num5 = 999
  1741. Else
  1742. Num5 = T5.Value
  1743. End If
  1744.  
  1745. IF IsNumeric(T6.Value) = False Then
  1746. Num6 = 999
  1747. Else
  1748. Num6 = T6.Value
  1749. End If
  1750.  
  1751. IF IsNumeric(T7.Value) = False Then
  1752. Num7 = 999
  1753. Else
  1754. Num7 = T7.Value
  1755. End If
  1756.  
  1757. IF IsNumeric(T8.Value) = False Then
  1758. Num8 = 999
  1759. Else
  1760. Num8 = T8.Value
  1761. End If
  1762.  
  1763. IF IsNumeric(T9.Value) = False Then
  1764. Num9 = 999
  1765. Else
  1766. Num9 = T9.Value
  1767. End If
  1768.  
  1769. IF IsNumeric(T10.Value) = False Then
  1770. Num10 = 999
  1771. Else
  1772. Num10 = T10.Value
  1773. End If
  1774.  
  1775. IF IsEmpty(T11.Value) = True Then
  1776. Num11 = "wrong"
  1777. Else
  1778. Num11 = T11.Value
  1779. End If
  1780.  
  1781. IF IsNumeric(T12.Value) = False Then
  1782. Num12 = 999
  1783. Else
  1784. Num12 = T12.Value
  1785. End If
  1786.  
  1787. IF Num1 = 1 Then
  1788. Score = Score + 1
  1789. End If
  1790.  
  1791. If Num2 = 1 Then
  1792. Score = Score + 1
  1793. End If
  1794.  
  1795. If Num3 = 12 Then
  1796. Score = Score + 1
  1797. End If
  1798.  
  1799. If Num4 = 6 Then
  1800. Score = Score + 1
  1801. End If
  1802.  
  1803. If Num5 = 2 Then
  1804. Score = Score + 1
  1805. End If
  1806.  
  1807. IF Num6 = 70 Then
  1808. Score = Score + 1
  1809. End If
  1810.  
  1811. IF Num7 = 2 Then
  1812. Score = Score + 1
  1813. End If
  1814.  
  1815. If Num8 = 60 Then
  1816. Score = Score + 1
  1817. End If
  1818.  
  1819. IF Num9 = 9 Then
  1820. Score = Score + 1
  1821. End If
  1822.  
  1823. IF Num10 = 0 Then
  1824. Score = Score + 1
  1825. End If
  1826.  
  1827. IF Num11 = "MEAT" OR Num11 = "BEEF" OR Num11 = "meat" OR Num11 = "beef" Then
  1828. Score = Score + 1
  1829. End If
  1830.  
  1831. IF Num12 = 12 Then
  1832. Score = Score + 1
  1833. End If
  1834. Title = "Your Score"
  1835. Style = 32
  1836. ' vbOKOnly + vbQuestion + vbDefaultButton1 + None
  1837. Message = "Your score is: " & Score & vbCrLf& vbCrLf & "Genius = 12" & vbCrLf & "Above Normal = 10-11" & vbCrLf & "Normal = 7-9" & vbCrLf & "Slow = 4-6" & vbCrLf & "Idiot = 1-3" & vbCrLf & "Brain Dead = 0"
  1838. Response = MsgBox(Message, Style, Title)
  1839. Score = 0
  1840. End Sub
  1841.  
  1842. Sub B14_OnClick()
  1843. T1.Value = Empty
  1844. T2.Value = Empty
  1845. T3.Value = Empty
  1846. T4.Value = Empty
  1847. T5.Value = Empty
  1848. T6.Value = Empty
  1849. T7.Value = Empty
  1850. T8.Value = Empty
  1851. T9.Value = Empty
  1852. T10.Value = Empty
  1853. T11.Value = Empty
  1854. T12.Value = Empty
  1855. Score = 0
  1856. End Sub
  1857. -->
  1858. </script>
  1859. <3>
  1860. <4><center>
  1861. <font color="#FF0000"><big>How Dumb Are YOU?</big></font>
  1862. <p><strong>Take this quiz and find out. Have fun...!!</strong>
  1863. </center>
  1864. <p>
  1865. <table border="1" width="100%">
  1866.   <tr>
  1867.     <td width="81%"><strong>Do they have a 4th of July in England? (Yes = 1; No = 2)</strong></td>
  1868.     <td width="9%"><input type="text" name="T1" size="5" tabindex="1"></td>
  1869.     <td width="10%"><input type="button" value="Huh?" name="B1"></td>
  1870.   </tr>
  1871.   <tr>
  1872.     <td width="81%"><strong>How many birthdays does the average man have?</strong></td>
  1873.     <td width="9%"><input type="text" name="T2" size="5" tabindex="2"></td>
  1874.     <td width="10%"><input type="button" value="Huh?" name="B2"></td>
  1875.   </tr>
  1876.   <tr>
  1877.     <td width="81%"><strong>Some months have 31 days; how many have 28?</strong></td>
  1878.     <td width="9%"><input type="text" name="T3" size="5" tabindex="3"></td>
  1879.     <td width="10%"><input type="button" value="Huh?" name="B3"></td>
  1880.   </tr>
  1881.   <tr>
  1882.     <td width="81%"><strong>How many "outs" are there in an inning of baseball?</strong></td>
  1883.     <td width="9%"><input type="text" name="T4" size="5" tabindex="4"></td>
  1884.     <td width="10%"><input type="button" value="Huh?" name="B4"></td>
  1885.   </tr>
  1886.   <tr>
  1887.     <td width="81%"><strong>Is it legal for a man to marry his widow's sister? Yes = 1; No =
  1888.     2)</strong></td>
  1889.     <td width="9%"><input type="text" name="T5" size="5" tabindex="5"></td>
  1890.     <td width="10%"><input type="button" value="Huh?" name="B5"></td>
  1891.   </tr>
  1892.   <tr>
  1893.     <td width="81%"><strong>Divide 30 by 1/2 and add 10.  What is the answer?</strong></td>
  1894.     <td width="9%"><input type="text" name="T6" size="5" tabindex="6"></td>
  1895.     <td width="10%"><input type="button" value="Huh?" name="B6"></td>
  1896.   </tr>
  1897.   <tr>
  1898.     <td width="81%"><strong>There are three apples and you take two away. How many do you
  1899.     have?</strong></td>
  1900.     <td width="9%"><input type="text" name="T7" size="5" tabindex="7"></td>
  1901.     <td width="10%"><input type="button" value="Huh?" name="B7"></td>
  1902.   </tr>
  1903.   <tr>
  1904.     <td width="81%"><strong>You have three pills and take one every half hour. How many
  1905.     minutes would the pills last?</strong></td>
  1906.     <td width="9%"><input type="text" name="T8" size="5" tabindex="8"></td>
  1907.     <td width="10%"><input type="button" value="Huh?" name="B8"></td>
  1908.   </tr>
  1909.   <tr>
  1910.     <td width="81%"><strong>A farmer has 17 sheep, and all but 9 die.  How many are left?</strong></td>
  1911.     <td width="9%"><input type="text" name="T9" size="5" tabindex="9"></td>
  1912.     <td width="10%"><input type="button" value="Huh?" name="B9"></td>
  1913.   </tr>
  1914.   <tr>
  1915.     <td width="81%"><strong>How many animals of each sex did Moses take on the Ark?</strong></td>
  1916.     <td width="9%"><input type="text" name="T10" size="5" tabindex="10"></td>
  1917.     <td width="10%"><input type="button" value="Huh?" name="B10"></td>
  1918.   </tr>
  1919.   <tr>
  1920.     <td width="81%"><strong>A clerk in a butcher shop is 5' 10" tall.  What does he
  1921.     weigh?</strong></td>
  1922.     <td width="9%"><input type="text" name="T11" size="5" tabindex="11"></td>
  1923.     <td width="10%"><input type="button" value="Huh?" name="B11"></td>
  1924.   </tr>
  1925.   <tr>
  1926.     <td width="81%"><strong>How many two-cent stamps are there in a dozen?</strong></td>
  1927.     <td width="10%"><input type="text" name="T12" size="5" tabindex="12"></td>
  1928.     <td width="9%"><input type="button" value="Huh?" name="B12"></td>
  1929.   </tr>
  1930. </table>
  1931.  
  1932. <p align="center"><input type="button" value="What's My Score?" name="B13"><input
  1933. type="button" value="Reset" name="B14" </p> </p>
  1934.  
  1935. <p> </p>
  1936.  
  1937. <p> </p>
  1938. <End>