<% Dim i Dim variable () Dim Conn Dim TonRs Dim ReqSql set Conn = Server.CreateObject("ADODB.Connection") set TonRs = Server.CreateObject("ADODB.Recordset") cnDBQ = "dsn=test;" Conn.Open cnDBQ ReqSql = "SELECT appliname FROM dbo.ANO_applications, " TonRs.Open ReqSql, Conn, 3, 3, 1 i = 1 TonRs.MoveFirst Do While Not TonRs.EOF And Not TonRs.BOF Redim Preserve variable(i) variable(i-1) =TonRs("appliname") response.write variable(i-1) i = i + 1 TonRs.Movenext Loop response.write variable(0) response.write variable(1) %>

'3 , 3' localisation du curseur sur le Rs et le type de verrouillage utilisé et '1' pour spécifié que l'on ouvres le Rs grâce à une requête .... Attention le redim preserve ne fonctionne que pour une seule dimension dynamique autrement dit si on veux faire un tableau à 3 dimensions et que l'on veuilles utiliser le redim preserve, une seule dimension peut être dynamique et donc deux autres statiques....

TonRs.Open ReqSql, Conn, 3, 3, 1 là tu forces les param curseur sur le Rs set TonRS = conn.execute(ReqSQL) là tu ouvres le Rs avec les param par défaut ça peut être largement suffisant pour certaines op. sur le Rs mais ça ne l'est pas pour moi... pour vérifier quel sont les param par défaut: set TonRS = conn.execute(ReqSQL) 'et ensuite: Response.Write "Le Type de Curseur : " & TonRs.CursorType & "<BR>" Response.Write "La Localisation du Curseur : " & TonRs.CursorLocation

Explication obtenu de Fulbert sur le forum d'asp-irine.com