HV menu created with ASP

[andyc209]

I am going slightly mad!!

I am trying to create a dynamic HV menu using access db and ASP but I am just hitting my head on a brick wall.

I have got one other dHTML menu to work but would really like this menu to work as I prefer this to any other.

Has anyone acheived this ...... and how???!!!??!??!?

[makouvlei]

To start with you need to write the script out on the server side, and then of course any set of menu's or submenu's can be generated as records from the database. You'll have to use

Select count(*)

statements to count the records before writing them.

<%="<script language=" & Chr(34) & "JavaScript" & Chr(34) & " type=" & Chr(34) & "text/javascript" & Chr(34) & ">" & Chr(10)%>
<%="//HV Menu- by Ger Versluis (http://www.burmees.nl/)" & Chr(10)%>
<%="//Submitted to Dynamic Drive (http://www.dynamicdrive.com)" & Chr(10)%>
<%="//Visit http://www.dynamicdrive.com for this script and more" & Chr(10)%>
<%="function Go(){return}" & Chr(10)%>
<%=" var NoOffFirstLineMenus=8;" & Chr(10)%>
<%=" var LowBgColor='';" & Chr(10)%>
<%=" var LowSubBgColor='#5A5B5A';" & Chr(10)%>
<%=" var HighBgColor='';" & Chr(10)%>
<%=" var HighSubBgColor='#000100';" & Chr(10)%>
<%=" var FontLowColor='white';" & Chr(10)%>
<%=" var FontSubLowColor='white';" & Chr(10)%>
<%=" var FontHighColor='#000100';" & Chr(10)%>
<%=" var FontSubHighColor='white';" & Chr(10)%>
<%=" var BorderColor='white';" & Chr(10)%>
<%=" var BorderSubColor='white';" & Chr(10)%>
<%=" var BorderWidth=0;" & Chr(10)%>
<%=" var BorderBtwnElmnts=1;" & Chr(10)%>
<%=" var FontFamily=" & Chr(34) & "Arial, Helvetica" & Chr(34) & Chr(10)%>
<%=" var FontSize=9;" & Chr(10)%>
<%=" var FontBold=1;" & Chr(10)%>
<%=" var FontItalic=0;" & Chr(10)%>
<%=" var MenuTextCentered='left';" & Chr(10)%>
<%=" var MenuCentered='left';" & Chr(10)%>
<%=" var MenuVerticalCentered='top'; // 'top', 'middle','bottom' or static" & Chr(10)%>
<%=" var ChildOverlap=.10;" & Chr(10)%>
<%=" var ChildVerticalOverlap=.4;" & Chr(10)%>
<%=" var StartTop=81;" & Chr(10)%>
<%=" var StartLeft=9;" & Chr(10)%>
<%=" var VerCorrect=0;" & Chr(10)%>
<%=" var HorCorrect=0;" & Chr(10)%>
<%=" var LeftPaddng=15;" & Chr(10)%>
<%=" var TopPaddng=2;" & Chr(10)%>
<%=" var FirstLineHorizontal=0;" & Chr(10)%>
<%=" var MenuFramesVertical=1;" & Chr(10)%>
<%=" var DissapearDelay=1000;" & Chr(10)%>
<%=" var TakeOverBgColor=1;" & Chr(10)%>
<%=" var FirstLineFrame='navig';" & Chr(10)%>
<%=" var SecLineFrame='space';" & Chr(10)%>
<%=" var DocTargetFrame='space';" & Chr(10)%>
<%=" var TargetLoc='';" & Chr(10)%>
<%=" var HideTop=0;" & Chr(10)%>
<%=" var MenuWrap=1;" & Chr(10)%>
<%=" var RightToLeft=0;" & Chr(10)%>
<%=" var UnfoldsOnClick=0;" & Chr(10)%>
<%=" var WebMasterCheck=0;" & Chr(10)%>
<%=" var ShowArrow=1;" & Chr(10)%>
<%=" var KeepHilite=1;" & Chr(10)%>
<%=" var Arrws=['images/tri.gif',3,10,'images/tridown.gif',10,5,'images/trileft.gif',5,10];" & Chr(10)%>
<%="function BeforeStart(){return}" & Chr(10)%>
<%="function AfterBuild(){return}" & Chr(10)%>
<%="function BeforeFirstOpen(){return}" & Chr(10)%>
<%="function AfterCloseAll(){return}" & Chr(10)%>
<%="Menu1=new Array(" & Chr(34) & "link 1" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "images/leftnav_1.gif" & Chr(34) & ",0,25,182);" & Chr(10)%>
<%="Menu2=new Array(" & Chr(34) & "link 2" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "images/leftnav_2.gif" & Chr(34) & ",0,18,182);" & Chr(10)%>
<%="Menu3=new Array(" & Chr(34) & "link 3" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "images/leftnav_3.gif" & Chr(34) & ",0,19,182);" & Chr(10)%>
<%="Menu4=new Array(" & Chr(34) & "link 4" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "images/leftnav_4.gif" & Chr(34) & ",0,18,182);" & Chr(10)%>
<%="Menu5=new Array(" & Chr(34) & "link 5" & Chr(34) & "," & Chr(34) & "enquiries.asp" & Chr(34) & "," & Chr(34) & "images/leftnav_5.gif" & Chr(34) & ",0,17,182);" & Chr(10)%>
<%="Menu6=new Array(" & Chr(34) & "link 6" & Chr(34) & "," & Chr(34) & "" & Chr(34) & "," & Chr(34) & "images/leftnav_6.gif" & Chr(34) & ",4,18,182);" & Chr(10)%>
<%=" Menu6_1=new Array(" & Chr(34) & " link 6.1" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu6_2=new Array(" & Chr(34) & " link 6.2" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu6_3=new Array(" & Chr(34) & " link 6.3" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu6_4=new Array(" & Chr(34) & " link 6.4" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%="Menu7=new Array(" & Chr(34) & "link 7" & Chr(34) & "," & Chr(34) & "" & Chr(34) & "," & Chr(34) & "images/leftnav_7.gif" & Chr(34) & ",5,20,182);" & Chr(10)%>
<%=" Menu7_1=new Array(" & Chr(34) & " link 7.1" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu7_2=new Array(" & Chr(34) & " link 7.2" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu7_3=new Array(" & Chr(34) & " link 7.3" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu7_4=new Array(" & Chr(34) & " link 7.4" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu7_5=new Array(" & Chr(34) & " link 7.5" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%="Menu8=new Array(" & Chr(34) & "link 8" & Chr(34) & "," & Chr(34) & "" & Chr(34) & "," & Chr(34) & "images/leftnav_8.gif" & Chr(34) & ",3,20,182);" & Chr(10)%>
<%=" Menu8_1=new Array(" & Chr(34) & " link 8.1" & Chr(34) & "," & Chr(34) & "news.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu8_2=new Array(" & Chr(34) & " link 8.2" & Chr(34) & "," & Chr(34) & "events.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%=" Menu8_3=new Array(" & Chr(34) & " link 8.3" & Chr(34) & "," & Chr(34) & "default.asp" & Chr(34) & "," & Chr(34) & "" & Chr(34) & ",0,16,156); " & Chr(10)%>
<%="</script>" & Chr(10)%>