array da funzione

[NotFoUnD]

ciao,
prima di postare ho cercato nel forum stesso ma credo di non aver ben capito il meccanismo ...
creo un array all'interno di una function

----------------------------
Function Migliore(id)
set RS = objconn.execute (querysql)
if IsNull(RS) then
dddd=Array(-1)
else
do while not RS.eof
Redim Preserve dddd(RS("xxxx")) RS.movenext
loop
end if
end function
----------------------------

e nello script la richiamo cosí:

Migliore id
Response.write dddd(0)

----------------------------

ma l'array (dichiarato all'esterno della function) risulta sempre vuoto

[Baol74]

hai le idee un po' confuse.

la funzione consa dovrebbe restituire? un array con cosa dentro?

[NotFoUnD]

lo credo anche io ...
l'array dovrebbe contenere tutti i campi "xxxx" del recordset creato

[Baol74]

Quindi un array unidimensionale?
Ma id cosa serve? e querysql dove la costruisci?

A parte questo, in poche righe di codice hai fatto diversi errori sia concettuali, che sintattici che funzionali

[NotFoUnD]

id é il valore che passo chiamando la funzione e la querysql viene costruita in base all'id.
la query é corretta e il recordset viene creato correttamente, ho provato con un response.write e i dati sono presenti

[Baol74]

ma come fa? quando attacchi l'id alla querysql? dentro alla funzione la variabile id non ha alcun senso perchè non la usi mai

[NotFoUnD]

----------------------------
Function Migliore(id)
querysql="SELECT xxxx FROM dddd WHERE tttt="& id
set RS = objconn.execute (querysql)
if IsNull(RS) then
dddd=Array(-1)
else
do while not RS.eof
Redim Preserve dddd(RS("xxxx")) RS.movenext
loop
end if
end function
----------------------------


avevo tagliato la parte di creazione della query perché non credevo servisse per capire il problema ma la query viene eseguita correttamente e il recordset é popolato
se dopo il ciclo do while not RS.eof metto un response.write RS("xxxx") mi stampa correttamente il valore

[Baol74]

Function Migliore(byRef ObjConn,id) 
Dim Sql,Rs
	Sql="SELECT xxxx FROM dddd WHERE tttt="& id 
	Set Rs = ObjConn.execute (sql)
	if Rs.EOF then
		Migliore = Array(-1)
	else
		Migliore = Rs.GetRows()
	end if
	Rs.Close()
	Set Rs = Nothing
end function

Dichiara le variabili (ne guadagni in velocità e in chiarezza)
Non usare ObjConn (globale), passala come parametro.
Rs.GetRows restituisce un array contenente il recodset selezionato.
Chiudi sempre gli rs, guadagni memoria e velocità

[NotFoUnD]

grazie per la soluzione ma quando poi provo un response.write Migliore(0), dopo la chiamata della function ovviamente, mi dice Subscript out of range sulla riga del response.write

[Baol74]

ti viene restituito un array!

ar = Migliore(ObjConn,0)
Response.Write(ar(0))

oppure

Response.Write( Migliore(ObjConn,0)(0) )

Una curiosità , ma non è che ti serve solo il primo elemento?