Array redim og funktion der returnere array
Hejsa2 problemer...
1) Jeg kan ikke få redim at at virke for mit array, jeg har:
*************************
Function getArrOfURLs(strOmr, strPlace)
Dim arrUrlsToReturn()
redim arrUrlsToReturn(0,1)
sql select....
i = 0
Do Until rs.EOF
if i <> 0 then
'GØR PLADS TIL EN MERE
'HAR PRØVET: redim arrUrlsToReturn(ubound(arrUrlsToReturn)+1,1), MEN DET VIRKER IKKE
end if
arrUrlsToReturn(i,0) = "" & rs("OmrNavn")
arrUrlsToReturn(i,1) = basisURL & rs("mappe") & "/"
i = i + 1
rs.movenext
loop
getArrOfURLs = arrUrlsToRetur
End Function
*************************
2) Ovenstående array bliver lavet i en function som det ses. Men når jeg vil sætte en variabel = med det virker kun hvis der er 1 post i array'et er der mere en 1 kommer der ikke noget ud. Sådan her gør jeg:
*************
arrOmr = getArrOfURLs(rs("omraade"),"Artikler")
if isArray(arrOmr) then
for i=lbound(arrOmr) to ubound(arrOmr)
Response.Write arrOmr(i,0)
Next
end if
**************
Dette er testet ved i funktionen at droppe redim og bare lave pladser nok Dim arrUrlsToReturn(100,1). Men jeg vil som sagt gerne at funktionen ved hjælp af redim opbygger at array med x poster "arrUrlsToReturn(x,1)", og at jeg derefter kan sætte en variabel = min funktion og udskrive arrayet.
Er det til at forstå?
Det har drillet mig meget så der er 200 point til den der lige ved hvordan, jeg får det til at hænge sammen :)
