Tilføj array til array

Jeg mener ikke der er en kommando til at merge 2 arrays i vbscript/asp.

Men med lidt kode kan alt jo lade sig gøre :)

(ikke afprøvet, men noget i den her stil:)
<%
post1 = rs.getrows()
post2 = rs.getrows()

redim preserve (post1,ubound(post1)+ubound(post2))

for x=lbound(post2) to ubound(post2)
  post1(ubound(post1)+x)=post2(lbound(post2)+x)
next
%>

I post = post1 + post2 er resultatet et fladt array.

Man kunne også:

post=array(post1,post2)

felter fra post1:
post(0)(0),post(0)(1),....

Hentes post1,post2,... sekventielt kan de efter tur tilføjes variables post vha.

add2list post,rs.getrows()

idet:

Sub add2list(V,i)
    On Error Resume Next
    ReDim Preserve V(UBound(V) + 1)
    If Err.Number=13 Then ReDim V(0)
    V(UBound(V)) = i
End Sub

Tak for forslag.

Mortvader, et spørgsmål til denne linje:

Hvad sker der ved ligmed-tegnet her?

post1-array'en er jo af typen post1(x,y), og det samme gælder post2.

Nej, ingen fejl alligevel. Scriptet fungerer.
Mortvader, læg et svar.

hopsa