Funktion der returner en array

rs = rsStandard.GetRows

burde gøre det, ikke

Set rs = rsStandard.GetRows

Det troede jeg også, men jeg kan ikke bruge Ubound eller andet på \"rs\"...
Det er sådan set det der er problemet.

Prøv at vise den kode, der ikke fungerer.

du skal bare bruge en variant datatype så får du et mulitidimentionalt array så din funktionserklæring skal se sådanne ud:

Function rs(byRef strSQL, RetVal as Variant)
    Dim objConn
    Set objConn = server.createobject(\"ADODB.connection\")
    objConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & conDatabasePath
   
    Dim rsStandard
    set rsStandard = Server.CreateObject(\"ADODB.Recordset\")
    rsStandard.open strSQL ,objConn
    if Not rsStandard.EOF Then
        RetVal = rsStandard.GetRows
    End If
    rsStandard.Close
    Set rsStandard = Nothing
    objConn.Close
    Set objConn = Nothing
End Function

når du kalder kan du bruge RetVal som returværdi fordi den er ByRef sådanne

sub EnEllerAnden()
dim MitArray as Variant
rs \"select * from tabel\", MitArray

for i = 0 to ubound(mitarray,2)

next

end sub

-> jper: \"Dim variabel As datatype\" er gyldig VB syntax, ikke gyldig VBScript syntax

-> demojoe: Du bør iøvrigt overføre din SQL sætning ByVal og ikke ByRef, når du ikke har brug for at ændre den originale streng inde i din funktion.

efter at have fucket lidt rundt med jpers svar, lykkedes det mig at få det til at virke.