Meny

Hej!

Jag hade tänkt med en databas bestående av två tabeller, huvudgrupp och varugrupp, presentera en meny. Menyn ska vara uppbyggd så att man ser huvudgrupperna i menyn och sedan om man klickar på huvudgruppen så ska varugrupperna med relation till denna huvudgrupp visas. Jag har börjat med att läsa in huvudgruppens och varugruppens recordset i vektorer. Jag klarar utan problem att skriva ut bara huvudgrupperna, men hur tusan gör jag för att presentera varugrupperna när man trycker på huvudgruppen?

If Not hgrRs.EOF Then
arrHgr = hgrRs.GetRows()
End If
If Not vgrRs.EOF Then
arrVgr = vgrRs.GetRows()
End If

Response.Write "<OL>"
For i = 0 TO UBound(arrHgr,2)
Response.Write "<LI>" & arrHgr(1,i)
next
Response.Write "</OL>"

Jag måste väl skriva <LI onClick="?">
Men hur ska denna funtionen se ut?

Någon som har förslag på hur man bäst löser detta?

Tacksam för svar

Har försökt skriva så här nu:
Response.Write "<OL>"

For i = 0 TO UBound(arrHgr,2)
if arrHgr(1,i) <> "Borttagen varugrupp" then
dim tempHgr
tempHgr = arrHgr(1,i)
Response.Write "<LI>" & tempHgr
else
tempHgr = 0
end if
For j = 1 TO Ubound(arrVgr, 2)
Response.Write "<UL>"
if arrVgr(2,j) = tempHgr and tempHgr <> 0 then
dim tempVgr
tempVgr = arrVgr(1,j)
Response.Write "<LI>" & tempVgr & "</LI>"
else
'varugruppen tillhör inte denna huvudgruppen
end if
next
Response.Write "</UL>"
next
Response.Write "</OL>"

Det som händer nu är att webläsaren bara står och laddar. Någon som har ngt förslag?