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!