Help - memorizzazione recorset in array

[daviala75]

Ciao a tutti, spero proprio mi possiate aiutare
Il mio problema è il seguente:
Estrarre da una tabella di un database tutti gli ID che rispecchiano una condizione, per cui ecco il codice:

Dim cn_Pref, rs_Pref, SqlPref, totArray(), countIDP
Set cn_Pref = Server.CreateObject("ADODB.Connection")
Set rs_Pref = Server.CreateObject("ADODB.Recordset")
SqlPref = "SELECT ID FROM preferiti WHERE ID_cliente="&Session("userid")&""
cn_Pref.Open conn_STRING_P
rs_Pref.Open SqlPref, cn_Pref, 1

Fin qui nessun problema, ora però ho la necessità di inserire tutti questi ID in una unica variabile che mi restituisca una stringa con tutti gli iD in sequenza sepèarati da una virgola, dato che mi serviranno per effettuare un'ulteriore query, quindi ho provato a creare un array, da qui il blocco dato che sto tentando in tutti i modi di farmi restituire dalla variabile "preferiti" una stringa con la sequenza degli iD ma non ci riesco

' ESEGUO IL CICLO E REALIZZA UN ARRAY CON TUTTI GLI ID DEI VEICOLI
countIDP = 0
Do While Not rs_Pref.EoF
countIDP = 0
Do While Not rs_Pref.EoF
countIDP = countIDP + 1
redim preserve totArray(countIDP)
totArray(countIDP) = rs_Pref("ID")
preferiti = totArray(countIDP)& ","
%>
<%= preferiti%>
<%
rs_Pref.MoveNext
Loop
%>
<%
rs_Pref.Close
set rs_Pref = Nothing
cn_Pref.Close
Set cn_Pref = Nothing
%>

[Vincent.Zeno]

se ho capito cosa intendi mi sembra tu la stia facendo più complicata del necessario...
dovrebbe bastare incrementare la variabile

Do While Not rs_Pref.EoF
preferiti = preferiti & rs_Pref("ID") & ","
rs_Pref.MoveNext
Loop

edit
per favore niente parole inutili nei titoli (vedi regolamento)
e utilizza il tag [CODE][/CODE] per postare codice, grazie

[daviala75]

Che dire se non grazie!! esattamente la stavo facendo molto piu complicata del necessario

[br1]

Esiste una metodo apposito per ottenere questo: GetRows