[vbscript] restituzione array

[magnus]

Ciao ragazzi, ho fatto questa funzione:

function leggiRecord(query,campi)
dim tmp(3)
set cn = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
cn.Open str_connessione
set rs=cn.Execute(query,rec_ris)

if rs.eof=false then
tmp(0)=rs.fields(campi(0))
leggiRecord=tmp
else
leggiRecord=null
end if

cn.close
end function

Solo che non riesco a prendere l'array restituito...

Faccio così:

dim vcampi(4)
vcampi=leggiRecord("select * from utenti where id=1",campi)

Ma mi viene restituito: tipo non corrispondente...

Come potrei fare?

Grazie!

[weppos]

La funzione ha diversi errori.
In primo luogo il parametro campi dove lo usi?

Se i campi della query sono 6 e tu crei un array con 4, darà errore.
Devi gestire un array ridimensionabile.

Infine, quella funzione è void.
Per ritornare un valore devi mettere, in vbscript, nomefunzione = valore, nel tuo caso leggiRecord = variabile prima di chiudere la funzione per assegnare un valore di ritorno.

[optime]

oppure dichiari l'array *fuori* dalla funzione