Uncle Jim's Web Designs: Click Title for Dropdown Menu

DEVELOPER TOOLS
This is the first one

MICROSOFT HELP
This is the second one.

ADMINISTRATIVE
This is the third one.

INSTALLATION INSTRUCTIONS

COPY - Insert Inside Body: <BODY></BODY>

<SCRIPT LANGUAGE="VBScript">
Sub Header_onclick()
	If MainHeader.style.display = "" then
		MainHeader.style.display = "none"
	Else 
		MainHeader.style.display = ""
	End If
End Sub

Sub Header_onmouseover()
	Header.style.color= "#8b0000"
End Sub

Sub Header_onmouseout()
	Header.style.color= "#000066"
End Sub

Sub Head1_onclick()
	If TOC1.style.display = "" then
		TOC1.style.display = "none"
	Else 
		TOC1.style.display = ""
	End If
End Sub
	
Sub Head1_onmouseover()
	Head1.style.color= "#8b0000"
End Sub

Sub Head1_onmouseout()
	Head1.style.color= "#000066"
End Sub

Sub Head2_onclick()
	If TOC2.style.display = "" then
		TOC2.style.display = "none"
	Else 
		TOC2.style.display = ""
	End If
End Sub

Sub Head2_onmouseover()
	Head2.style.color= "#8b0000"
End Sub

Sub Head2_onmouseout()
	Head2.style.color= "#000066"
End Sub

Sub Head3_onclick()
	If TOC3.style.display = "" then
		TOC3.style.display = "none"
	Else 
		TOC3.style.display = ""
	End If
End Sub

Sub Head3_onmouseover()
	Head3.style.color= "#8b0000"
End Sub

Sub Head3_onmouseout()
	Head3.style.color= "#000066"
End Sub

Sub Head4_onclick()
	If TOC4.style.display = "" then
		TOC4.style.display = "none"
	Else 
		TOC4.style.display = ""
	End If
End Sub

Sub Head4_onmouseover()
	Head4.style.color= "#8b0000"
End Sub

Sub Head4_onmouseout()
	Head4.style.color= "#000066"
End Sub

</SCRIPT>	
<FONT FACE="Verdana" SIZE=2>
<DIV ID="Header">
<CENTER>
<H1>
Uncle Jim's Web Designs
</H1>
</CENTER>
</DIV>
<center>Click on the header to see a site listing of our popular programs.<br>
The program names with a short description will appear on the browser.<br>
Then click on a series name to see a list of sub-menus.</center>
<P>
<DIV ID="MainHeader" STYLE="display:none">
	<UL>
	<DIV ID="Head1">
	<FONT SIZE=3>
	<B>DEVELOPER TOOLS</B><BR>
	<FONT SIZE=2>This is the first one</DIV>
	<P>
	<DIV ID="TOC1" STYLE="display:none">
	<FONT SIZE=2>
<UL>
<LI TYPE=DISC><A HREF="allnew.html">Newest Javascripts</A>
<LI TYPE=DISC><A HREF="popular.html">Most Popular Scripts</A>
</UL></FONT></DIV><P>
	<DIV ID="Head2">
	<FONT SIZE=3>
	<B>MICROSOFT HELP</B><BR>
	<FONT SIZE=2>This is the second one.</DIV>
	<P>
	<DIV ID="TOC2" STYLE="display:none">
		<FONT SIZE=2>
		<UL>
		<LI TYPE=DISC><A HREF="http://jdstiles.com/tips/">Microsoft Office Tips</A>
		<LI TYPE=DISC><A HREF="http://jdstiles.com/mso2k/">Microsoft Office Tutorials</A>
		</UL>
		</FONT>
	</DIV>
	<P>
	<DIV ID="Head3">
	<FONT SIZE=3>
	<B>ADMINISTRATIVE</B><BR>
	<FONT SIZE=2>This is the third one.
	</DIV>
	<DIV ID="TOC3" STYLE="display:none">
		<FONT SIZE=2>
		<UL>
		<LI TYPE=DISC><A HREF="http://jdstiles.com/web/">Services and Support</A>
		<LI TYPE=DISC><A HREF="http://jdstiles.com/java/guestbook.html">Guestbook</A>
		<LI TYPE=DISC><A HREF="http://jdstiles.com/java/feedback.html">Send Comments</A>
		<LI TYPE=DISC><A HREF="http://jdstiles.com/games/games.html">Having some Fun</A>
		</UL>
		</FONT>
	</DIV>

Close This Window