Lav et array ud fra database rs?

do until rs.eof
  myVariable = myVariable & ";" & rs("name")
rs.movenext
loop

response.write "myVariable: " & myVariable & "<br>"

myArray = Split(myVariable,";")

Det er bedre at bruge ; som seperatortegn. Jeg har ikke checket
om det virker.

Har selv fundet ud af, men kan godt bruge din hjælp alligevel. Har fået lavet følgende med lidt hjælp fra HTML.dk ;-)

' to variabler til liste og array
Dim frugtliste, arrFrugter

' Kommasepareret liste
strSQL = "SELECT catID, catName FROM categories ORDER BY catOrder ASC "
Set catRs = connection.execute(strSQL)
<%
Do while not catRs.eof
  frugtliste = frugtliste & catRs("catName") & ","
  catRs.movenext
Loop

' Lav et array ved at splitte listen ved kommaer
arrFrugter = Split(frugtliste,",")

' Her bruges en løkke til at genneløbe arrFrugt
For t = LBound(arrFrugter) to UBound(arrFrugter)
  Response.Write arrFrugter(t)
Next
%>

Det fungerer også fint, men jeg skal også ha rs("catId") med, så jeg senere nede kan køre mit array i gennem og få catId og catName for sig selv - kan det lade sig gøre?

Hovsa, min ASP kode ser sådan herud:

<%
' to variabler til liste og array
Dim frugtliste, arrFrugter

' Kommasepareret liste
strSQL = "SELECT catID, catName FROM categories ORDER BY catOrder ASC "
Set catRs = connection.execute(strSQL)

Do while not catRs.eof
  frugtliste = frugtliste & catRs("catName") & ","
  catRs.movenext
Loop

' Lav et array ved at splitte listen ved kommaer
arrFrugter = Split(frugtliste,",")

' Her bruges en løkke til at genneløbe arrFrugt
For t = LBound(arrFrugter) to UBound(arrFrugter)
  Response.Write arrFrugter(t)
Next
%>

Ja ok, det gør man bare sådan her:

<%
' to variabler til liste og array
Dim frugtliste, arrFrugter

' Kommasepareret liste
strSQL = "SELECT catID, catName FROM categories ORDER BY catOrder ASC "
Set catRs = connection.execute(strSQL)

Do while not catRs.eof
  frugtliste = frugtliste & catRs("catName") & ","
  frugtliste2 = frugtliste2 & catRs("catId") & ","
  catRs.movenext
Loop

' Lav et array ved at splitte listen ved kommaer
arrFrugter = Split(frugtliste,",")
arrFrugter2 = Split(frugtliste2,",")

' Her bruges en løkke til at genneløbe arrFrugt
For t = LBound(arrFrugter) to UBound(arrFrugter)
  Response.Write arrFrugter(t)
  Response.Write arrFrugter2(t)
Next
%>

Er det ikke måden at gøre det på?

det er i hvert fald en mulighed - men der er en lettere og hurtigere måde; getrows

MyArray = rsCategory.GetRows()

Hvor skal jeg indsætte det?

Nu har jeg denne kode:

' to variabler til liste og array
Dim arrayCategoryID, arrayCategoryName

' Kommasepareret liste
strSQL = "SELECT catID, catName FROM categories ORDER BY catOrder ASC "
Set catRs = connection.execute(strSQL)

Do while not catRs.eof

  arrCategoryID = arrCategoryID & "," & catRs("catId")
  arrCategoryName = arrCategoryName & "," & catRs("catName")
  catRs.movenext
 
Loop

' Lav et array ved at splitte listen ved kommaer
arrayCategoryID = Split(arrCategoryID,",")
arrayCategoryName = Split(arrCategoryName,",")
%>

Når jeg indsætter det i en select og looper den i gennem bliver den øverste option tom, hvorfor det?

strSQL = "SELECT catID, catName FROM categories ORDER BY catOrder ASC "
Set catRs = connection.execute(strSQL)

arrCategories = catRs.GetRows()

'herefter kan du loope arrCategories igennem.

Sådan her?

<%
strSQL = "SELECT catID, catName FROM categories ORDER BY catOrder ASC "
Set catRs = connection.execute(strSQL)

arrCategories = catRs.GetRows()

  arrCategoryID = arrCategoryID & "," & catRs("catId")
  arrCategoryName = arrCategoryName & "," & catRs("catName")
  catRs.movenext
 
Loop
%>

Så siger den 'Loop' without 'Do'

Er der nogen grund til at du laver 2 arrays i stedet for bare ét?

Ja :-) Det er fordi det skal udskrives sådan her:

<option value="<%=arrayCategoryID"><%=arrayCategoryName%></option>

<option value="<%=arrayCategoryID%>"><%=arrayCategoryName%></option>

Fandt en løsning:

                For t = LBound(arrayCategoryID) to UBound(arrayCategoryID)
                  If not arrayCategoryID(t) = "" Then
                    Response.Write("<option value=""" & arrayCategoryID(t) & """>" & arrayCategoryName(t) & "</option>")
                  End If
                Next

umiddelbart vil jeg mene det er spild at lave 2 arrays - du kan jo sagtens lave et array med flere dimensioner, og det er bla det man gør med getrows. Visuelt og kodemæssigt kan du måske se forskellen her; http://www.codefixer.com/tutorials/multidimensional_arrays.asp - det gør det betydelig lettere at holde styr på ens data.