Why not to use GetRows method, which creates 2 dimensional array???
This will create arrRecords with 2 dimensions: arrRecords(Column, Row).Code:<% Dim cn Dim rs Dim arrRecords Set cn = Server.CreateObject("ADODB.Conenction") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open "DSN=YourDSN", UserName, Password rs.Open "Select * From MyTable", cn, 3 'adOpenStatic arrRecords = rs.GetRows rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>
Regards,




Reply With Quote