Dynamic HTML utilizing the visible property in Visible.alx

<SCRIPT LANGUAGE="VBScript">
<!--
Dim CurPage

Sub MessageTo1()
	location.href="http://www/smokeypoint.org/biplane.htm"
end sub

Sub MessageTo2()
	location.href="http://www.smokeypoint.com/xweb.htm"
end sub

Sub MessageTo3()
	location.href="http://www.smokeypoint.org/page3.htm" 
end sub

Sub MessageTo5()
	location.href="http://www/smokeypoint.org/page1.htm" 
end sub


Sub MessageTo6()
	location.href="http://www.smokeypoint.org/restof.htm" 
end sub

Sub MessageTo7()
	location.href="http://www.cnet.com" 
end sub

Sub MessageToUser()
	MsgBox "This is it !! Thank you for Participating !",64,"Live Demonstration Alert"
end sub

Sub TOCForm_OnLoad()
	cowhite.Visible = false
        towhite.Visible = false
        threewhite.Visible = false
        forewhite.Visible = false
        fivewhite.Visible = true
        fiveover.Visible = false
        fivehot.Visible = true
        sixhot.Visible = false
        sevhot.Visible = false
	CurPage=1
end sub

Sub cohot_MouseEnter()
	cowhite.visible=true
        label1.forecolor="12632256"
end sub

Sub tohot_MouseEnter()
	towhite.visible=true
        label2.forecolor="12632256"
end sub

Sub threehot_MouseEnter()
	threewhite.visible=true
        label3.forecolor="12632256"
end sub

Sub forehot_MouseEnter()
	forewhite.visible=true
        label4.forecolor="12632256"
end sub

Sub fivehot_MouseEnter()
        fivewhite.Visible = false
        fiveover.Visible = true
        fivehot.Visible = true
        label5.forecolor="12632256"
        label5.Visible = true
        label6.Visible = false
        label7.Visible = false
        Timer1.Enabled = TRUE
        Timer2.Enabled = TRUE
        Timer3.Enabled = TRUE
end sub

Sub cohot_MouseExit()
	if CurPage=1 then
		cowhite.visible=false
                label1.forecolor="00000"
	end if
end sub

Sub tohot_MouseExit()
	if CurPage=1 then
		towhite.visible=false
                label2.forecolor="00000"
	end if
end sub

Sub threehot_MouseExit()
	if CurPage=1 then
		threewhite.visible=false
                label3.forecolor="00000"
	end if
end sub

Sub forehot_MouseExit()
	if CurPage=1 then
		forewhite.visible=false
                label4.forecolor="00000"
	end if
end sub

Sub fivehot_MouseExit()
	if CurPage=1 then
           fivewhite.Visible = true
           fiveover.Visible = false
           label5.forecolor="00000"
           fivehot.Visible = true
           sixhot.Visible = false
           sevhot.Visible = false
           label5.Visible = false
           label6.Visible = false
           label7.Visible = false
	 Timer1.Enabled = false
         Timer2.Enabled = false
         Timer3.Enabled = false
	end if
end sub

Sub cohot_Click()
    if	CurPage=1 then
        CurPage=2
	call LastReset
	call MessageTo1
    end if
end sub

Sub tohot_Click()
    if	CurPage=1 then
        CurPage=2
	call LastReset
	call MessageTo2
    end if
end sub

Sub threehot_Click()
    if	CurPage=1 then
        CurPage=2
	call LastReset
	call MessageTo3
    end if
end sub

Sub forehot_Click()
    if	CurPage=1 then
        CurPage=2
	call LastReset
	call MessageToUser
    end if
end sub

Sub fivehot_Click()
    if	CurPage=1 then
        CurPage=2
        fivewhite.Visible = false
        fiveover.Visible = false
	Timer1.Enabled = false
        Timer2.Enabled = false
        Timer3.Enabled = false
	call LastReset
	call MessageTo5
    end if
end sub

Sub sixhot_Click()
    if	CurPage=1 then
        CurPage=2
        fivewhite.Visible = false
        fiveover.Visible = true
        Timer1.Enabled = false
        Timer2.Enabled = false
        Timer3.Enabled = false
        call LastReset
        call MessageTo6
    end if
end sub

Sub sevhot_Click()
    if	CurPage=1 then
        CurPage=2
        fivewhite.Visible = false
        fiveover.Visible = true
	Timer1.Enabled = false
        Timer2.Enabled = false
        Timer3.Enabled = false
	call LastReset
	call MessageTo7
    end if
end sub

Sub LastReset()
	If CurPage=1 then
		cowhite.visible=true
	        cohot.visible=false
		towhite.visible=true
	        tohot.visible=false
		threewhite.visible=true
	        threehot.visible=false
		forewhite.visible=true
	        forehot.visible=false
                fivewhite.Visible = true
                fiveover.Visible = false
                fivehot.Visible = true
                sixhot.Visible = false
                sevhot.Visible = false
                label5.Visible = false
                label6.Visible = false
                label7.Visible = false
                label5.forecolor="00000000"               
                label6.forecolor="00000000"
                label7.forecolor="00000000"
	  else if CurPage=2 then
             Curpage=1
	     cohot.visible=true
             cowhite.visible=false
             tohot.visible=true
             towhite.visible=false
             threehot.visible=true
             threewhite.visible=false
             forehot.visible=true
             forewhite.visible=false
             fivewhite.Visible = true
             fiveover.Visible = false
             fivehot.Visible = true
             sixhot.Visible = false
             sevhot.Visible = false
             label5.Visible = false
             label6.Visible = false
             label7.Visible = false
             label5.forecolor="00000000"               
             label6.forecolor="00000000"
             label7.forecolor="00000000"
	 end if
       end if
end sub
-->
</SCRIPT>
<DIV BACKGROUND="#00000" ID="tocform" STYLE="LAYOUT:FIXED;WIDTH:500pt;HEIGHT:250pt;">
    <OBJECT ID="cowhite"
     CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:10pt;LEFT:9pt;WIDTH:85pt;HEIGHT:15pt;DISPLAY:NONE;ZINDEX:0;">
        <PARAM NAME="PicturePath" VALUE="cherries.gif">
        <PARAM NAME="AutoSize" VALUE="-1">
        <PARAM NAME="BorderStyle" VALUE="0">
        <PARAM NAME="Size" VALUE="2990;1349">
        <PARAM NAME="VariousPropertyBits" VALUE="19">
    </OBJECT>
    <OBJECT ID="cohot"
     CLASSID="CLSID:2B32FBC2-A8F1-11CF-93EE-00AA00C08FDF" STYLE="TOP:15pt;LEFT:10pt;WIDTH:85pt;HEIGHT:15pt;ZINDEX:1;">
        <PARAM NAME="ForeColor" VALUE="12632256">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Dynamic HTML">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Label1"
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:15pt;LEFT:120pt;WIDTH:310pt;HEIGHT:166pt;ZINDEX:2;">
        <PARAM NAME="ForeColor" VALUE="#00000">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Demonstration of Z Order Dynamic HTML  
         ">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="towhite"
     CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:40pt;LEFT:9pt;WIDTH:85pt;HEIGHT:15pt;DISPLAY:NONE;ZINDEX:0;">
        <PARAM NAME="PicturePath" VALUE="cherries.gif">
        <PARAM NAME="AutoSize" VALUE="-1">
        <PARAM NAME="BorderStyle" VALUE="0">
        <PARAM NAME="Size" VALUE="2990;1349">
        <PARAM NAME="VariousPropertyBits" VALUE="19">
    </OBJECT>
    <OBJECT ID="tohot"
     CLASSID="CLSID:2B32FBC2-A8F1-11CF-93EE-00AA00C08FDF" STYLE="TOP:45pt;LEFT:10pt;WIDTH:85pt;HEIGHT:15pt;ZINDEX:1;">
        <PARAM NAME="ForeColor" VALUE="12632256">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Direct3D">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Label2"
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:45pt;LEFT:120pt;WIDTH:310pt;HEIGHT:166pt;ZINDEX:2;">
        <PARAM NAME="ForeColor" VALUE="#00000">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Direct3D and Viewpoint DataShop for xweb.ocx  
         ">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="threewhite"
     CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:75pt;LEFT:9pt;WIDTH:85pt;HEIGHT:15pt;DISPLAY:NONE;ZINDEX:0;">
        <PARAM NAME="PicturePath" VALUE="cherries.gif">
        <PARAM NAME="AutoSize" VALUE="-1">
        <PARAM NAME="BorderStyle" VALUE="0">
        <PARAM NAME="Size" VALUE="2990;1349">
        <PARAM NAME="VariousPropertyBits" VALUE="19">
    </OBJECT>
    <OBJECT ID="threehot"
     CLASSID="CLSID:2B32FBC2-A8F1-11CF-93EE-00AA00C08FDF" STYLE="TOP:80pt;LEFT:10pt;WIDTH:180pt;HEIGHT:15pt;ZINDEX:1;">
        <PARAM NAME="ForeColor" VALUE="12632256">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Oceonographic Community">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Label3"
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:80pt;LEFT:200pt;WIDTH:360pt;HEIGHT:166pt;ZINDEX:2;">
        <PARAM NAME="ForeColor" VALUE="#00000">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="a selection that will lead you to many many more  
         ">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="forewhite"
     CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:110pt;LEFT:9pt;WIDTH:85pt;HEIGHT:15pt;DISPLAY:NONE;ZINDEX:0;">
        <PARAM NAME="PicturePath" VALUE="cherries.gif">
        <PARAM NAME="AutoSize" VALUE="-1">
        <PARAM NAME="BorderStyle" VALUE="0">
        <PARAM NAME="Size" VALUE="2990;1349">
        <PARAM NAME="VariousPropertyBits" VALUE="19">
    </OBJECT>
    <OBJECT ID="forehot"
     CLASSID="CLSID:2B32FBC2-A8F1-11CF-93EE-00AA00C08FDF" STYLE="TOP:115pt;LEFT:10pt;WIDTH:90pt;HEIGHT:15pt;ZINDEX:1;">
        <PARAM NAME="ForeColor" VALUE="12632256">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Z Ordering HTML">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Label4"
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:115pt;LEFT:130pt;WIDTH:360pt;HEIGHT:66pt;ZINDEX:2;">
        <PARAM NAME="ForeColor" VALUE="#00000">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="view an actual live demonstration of Dynamic HTML and the visible property  
         ">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="fivewhite"
     CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:140pt;LEFT:9pt;WIDTH:85pt;HEIGHT:15pt;DISPLAY:NONE;ZINDEX:0;">
        <PARAM NAME="PicturePath" VALUE="regular.gif">
        <PARAM NAME="AutoSize" VALUE="-1">
        <PARAM NAME="BorderStyle" VALUE="0">
        <PARAM NAME="Size" VALUE="2990;1349">
        <PARAM NAME="VariousPropertyBits" VALUE="19">
    </OBJECT>
    <OBJECT ID="fiveover"
     CLASSID="CLSID:D4A97620-8E8F-11CF-93CD-00AA00C08FDF" STYLE="TOP:140pt;LEFT:9pt;WIDTH:85pt;HEIGHT:15pt;DISPLAY:NONE;ZINDEX:1;">
        <PARAM NAME="PicturePath" VALUE="clicked.gif">
        <PARAM NAME="AutoSize" VALUE="-1">
        <PARAM NAME="BorderStyle" VALUE="0">
        <PARAM NAME="Size" VALUE="2990;1349">
        <PARAM NAME="VariousPropertyBits" VALUE="19">
    </OBJECT>
    <OBJECT ID="fivehot"
     CLASSID="CLSID:2B32FBC2-A8F1-11CF-93EE-00AA00C08FDF" STYLE="TOP:150pt;LEFT:24pt;WIDTH:120pt;HEIGHT:15pt;ZINDEX:2;">
        <PARAM NAME="ForeColor" VALUE="12632256">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Return">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Sixhot"
     CLASSID="CLSID:2B32FBC2-A8F1-11CF-93EE-00AA00C08FDF" STYLE="TOP:150pt;LEFT:24pt;WIDTH:120pt;HEIGHT:15pt;ZINDEX:3;">
        <PARAM NAME="ForeColor" VALUE="12632256">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Vrml 3D">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Sevhot"
     CLASSID="CLSID:2B32FBC2-A8F1-11CF-93EE-00AA00C08FDF" STYLE="TOP:150pt;LEFT:24pt;WIDTH:120pt;HEIGHT:15pt;ZINDEX:4;">
        <PARAM NAME="ForeColor" VALUE="12632256">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="C-Net">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Label5"
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:150pt;LEFT:135pt;WIDTH:360pt;HEIGHT:66pt;ZINDEX:1;">
        <PARAM NAME="ForeColor" VALUE="#00000">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="Return to Mysterious Links page !  
         ">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Label6"
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:150pt;LEFT:135pt;WIDTH:360pt;HEIGHT:66pt;ZINDEX:2;">
        <PARAM NAME="ForeColor" VALUE="#00000">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="VRML as told by Superscape !  
         ">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
    <OBJECT ID="Label7"
     CLASSID="CLSID:978C9E23-D4B0-11CE-BF2D-00AA003F40D0" STYLE="TOP:150pt;LEFT:135pt;WIDTH:360pt;HEIGHT:66pt;ZINDEX:3;">
        <PARAM NAME="ForeColor" VALUE="#00000">
        <PARAM NAME="BackColor" VALUE="12632256">
        <PARAM NAME="VariousPropertyBits" VALUE="8388627">
        <PARAM NAME="Caption" VALUE="visit the internet version of C-net!  
         ">
        <PARAM NAME="Size" VALUE="10936;5856">
        <PARAM NAME="FontName" VALUE="Arial">
        <PARAM NAME="FontEffects" VALUE="1073741825">
        <PARAM NAME="FontHeight" VALUE="200">
        <PARAM NAME="FontCharSet" VALUE="0">
        <PARAM NAME="FontPitchAndFamily" VALUE="2">
        <PARAM NAME="FontWeight" VALUE="700">
    </OBJECT>
<DIV>