Hjælp til dynamisk generering af array
Jeg har i et stykke tid arbejdet med Roenvings fine selector med to niveauer, men nu skal jeg bruge alle tre, og det giver mig lidt problemer at få det genereret dynamisk.Link til scriptet:
http://roenving.users.whitehat.dk/index.html?/WD4Selects-beta.html
Hvad jeg har forsøgt indtil nu:
<%
Response.write("var arr = ["& vbCrLf )
Set Calltype1Rs = Conn.Execute("SELECT * FROM Calltype1;")
Do while Not Calltype1Rs.eof
Response.write(" ['" & Calltype1Rs("ElementTitle")& "',["& vbCrLf )
Set Calltype2Rs = Conn.Execute("SELECT * FROM Calltype2 WHERE Calltype1ID = "& Calltype1Rs("ElementID") &";")
Do while Not Calltype2Rs.eof
Response.write(" ['" & Calltype2Rs("ElementTitle")& "'," & vbCrLf )
Set Calltype3Rs = Conn.Execute("SELECT * FROM Calltype3 WHERE Calltype2ID = "& Calltype2Rs("ElementID") &";")
If not Calltype3Rs.EOF Then
Response.write(" ['" & Calltype3Rs("ElementTitle")& "'")
Calltype3Rs.MoveNext
If not Calltype3Rs.EOF Then
Do while Not Calltype3Rs.eof
Response.write(",'" & Calltype3Rs("ElementTitle")& "',")
Calltype3Rs.MoveNext
Loop
Response.write("]],"& vbCrLf)
End If
End If
Calltype2Rs.MoveNext
Loop
Calltype1Rs.MoveNext
If NOT Calltype1Rs.eof Then
Response.write(" ]],"& vbCrLf )
Else
Response.write(" ]]"& vbCrLf )
End If
Loop
Response.write(" ];"& vbCrLf )
%>
De tre tabeller jeg hiver ud fra ser således ud:
Calltype1
----------------
ElementID
ElementTitle
Calltype2
----------------
Calltype1ID
ElementTitle
Calltype3
----------------
ElementID
Calltype2ID
ElementTitle
