Javascript Programming Help

[vharris]

Hello,

I'm trying to create a havascript pop_up window, that categories and subcategories from the database using ASP script. How can I modify the following script so that more then one sub categor is shown. Currently, it shows the first and second categories.

<%
Response.write "<Script language='JavaScript'>" & vbcrlf
Response.write "function SubMenu(Cell){"& vbcrlf
Response.write "switch (Cell)"& vbcrlf & "{"& vbcrlf
Response.Write "case S0:{"& vbcrlf
For menuLoop = 1 to ScriptLoop
Response.write "S" & menuLoop & ".style.display = " & "'" & "none" & "'" & vbcrlf
Next
Response.write "}"& vbcrlf
Response.write "break" & vbcrlf
For menuLoop = 1 to ScriptLoop
Response.Write "case S" & menuLoop & ":{"& vbcrlf
For submenuLoop = 1 to ScriptLoop
If MenuLoop = submenuLoop then
Response.write "S" & submenuLoop & ".style.display = ''" & vbcrlf
Else
Response.write "S" & submenuLoop & ".style.display = " & "'" & "none" & "'" & vbcrlf
End If
Next
Response.write "}"& vbcrlf
Response.write "break" & vbcrlf

Next
Response.write "}"& vbcrlf
Response.write "}"& vbcrlf
Response.write "</Script>" & vbcrlf
%>

Here is the code that process the script above.
<%
SQLMenu= "Select * From categories Where idParentCategory=1 and idCategory>1 and iBTOhide=0 Order By priority"
Set rsMenu = Server.CreateObject( "ADODB.Recordset" )
rsMenu.ActiveConnection = DBCon
rsMenu.CursorType = adOpenStatic
rsMenu.Open( SQLMenu )
ScriptLoop = rsMenu.RecordCount
%>
<%
While Not rsMenu.EOF

IDCategory1=rsMenu("idcategory")
CatDesc1=rsMenu("categorydesc")

%>
<%LoopCounter = LoopCounter + 1%>
<table id="T<%=LoopCounter%>" border="0" width="180" style="position: absolute; left: 10; top: <%=LoopCounter*20%>; z-index: 1" onMouseOver="SubMenu(S<%=LoopCounter%>)" class="Menu">
<tr>
<td width="100%"><%=rsMenu( "categorydesc" )%></td>
</tr>
</table>
<table id="S<%=LoopCounter%>" class="submenu" border="0" cellpadding="3" cellspacing="1" width="180" style="display: none; position: absolute; left: 189px; top: <%=(LoopCounter*20)+ 5%>; z-index: 2; top: 27px">
<%

SQLSubMenu= "Select idcategory, idparentcategory, categorydesc From categories Where idparentcategory=" & IDCategory1 & " and idCategory>1 Order By priority"
Set rsSubMenu = DBCon.Execute(SQLSubMenu)
While Not rsSubMenu.EOF

IDCategory2=rsSubMenu("idcategory")
CatDesc2=rsSubMenu("categorydesc")

%> <%SubLoopCounter = SubLoopCounter + 1%>
<tr>
<td id="SB<%=LoopCounter & SubLoopCounter%>" onMouseOver=Swap(this) onMouseOut=Swap(this) width="100%" onClick="NavTo(&quot;<%=rsSubMenu( "categorydesc" )%>&quot;)">
<%=rsSubMenu( "categorydesc" )%> </td>
</tr>
<%rsSubMenu.MoveNext%>
<%Wend%>
<%SubLoopCounter=0%>
</table>


<table id="S<%=SubLoopCounter2%>" class="submenu" border="0" cellpadding="3" cellspacing="1" width="180" style="display: none; position: absolute; left: 368px; top: <%=(SubLoopCounter*20)+ 5%>; z-index: 3; top: 44px" >
<%

SQLSubMenu2= "Select idcategory, idparentcategory, categorydesc From categories Where idparentcategory=" & IDCategory2 & " and idCategory>1 Order By priority"
Set rsSubMenu2 = DBCon.Execute(SQLSubMenu)
ScriptLoop3 = rsSubMenu.RecordCount
While Not rsSubMenu2.EOF

IDCategory3=rsSubMenu2("idCategory")
CatDesc3=rsSubMenu2("categorydesc")

%> <%SubLoopCounter2 = SubLoopCounter2 + 1%>
<tr>
<td id="SB<%=LoopCounter&SubLoopCounter & SubLoopCounter2%>" onMouseOver="SubMenu(S<%=LoopCounter%>)" class="Menu" >
<%=rsSubMenu2( "categorydesc" )%> </td>
</tr>
<%rsSubMenu2.MoveNext%>
<%Wend%>
<%SubLoopCounter2=0%>
</table>

<table id="S<%=SubLoopCounter3%>" class="submenu" border="0" cellpadding="3" cellspacing="1" width="180" style="display: none; position: absolute; left: 549px; top: <%=(SubLoopCounter*20)+ 5%>; z-index: 4; top: 63px">
<%

SQLSubMenu3= "Select idcategory, idparentcategory, categorydesc From categories Where idparentcategory=" & IDCategory3 & " and idCategory>1 Order By priority"
Set rsSubMenu3 = DBCon.Execute(SQLSubMenu)
While Not rsSubMenu2.EOF

IDCategory3=rsSubMenu3("idCategory")
CatDesc3=rsSubMenu3("categorydesc")

%> <%SubLoopCounter3 = SubLoopCounter3 + 1%>
<tr>
<td id="S<%=LoopCounter&SubLoopCounter & SubLoopCounter2&SubLoopCounter3%>" onMouseOver=Swap(this) onMouseOut=Swap(this) width="100%" onClick="NavTo(&quot;<%=rsSubMenu3( "categorydesc" )%>&quot;)">
<%=rsSubMenu3( "categorydesc" )%> </td>
</tr>
<%rsSubMenu3.MoveNext%>
<%Wend%>
<%SubLoopCounter3=0%>
</table>


<%rsMenu.MoveNext%>
<%Wend%>

</body>

[dr.p]

Well, you've got:

For menuLoop = 1 to ScriptLoop

and then:

If MenuLoop = submenuLoop then

... "MenuLoop" should probably be "menuLoop"? Or is ASP not case sensitive with the var names?

Either way, where is ScriptLoop set and what is it set to? Since that's your loop limit, that part is important.