Array para consulta sql en tabla

[castrobo08]

Hola, buenas tardes amigos, soy nuevo en el foro lo que me alegra bastante, actualmente estoy desarrollando un pequeo proyecto y me eh atorado en lo siguiente:

Tengo mi conexion a una base de datos en sql server 2005, los resultados de mi consulta se devuelven en una tabla que se genera automaticamente dependiendo del numero de campos que devuelva la consulta, ahora bien hasta ahi todo me va muy bien, ahora lo que quiero es guardar esa tabla en un arreglo pero no tengo idea de como hacerlo, agradesco cualquier ayudita y vere si puedo pegar aqui el codigo si es que asi me lo piden

[castrobo08]

Aqui les dejo el codigo que tengo tal cual para ver si me entienden un poco mejor, la tabla se crea automaticamente dependiendo de la consulta, yo a mi tabla le agregue una columna al final en donde se lleva a cabo la validacion de un archivo (como puede verse en el codigo) bien amigos pues quiero ver si hay manera de guardar esa tabla en un arreglo.


<%
Dim conex
Set conex=Sever.CreateObject("ADODB.Connection")
Conex.Open"Driver{SQL SERVER}:Server=servidor;database=mi_base;uid=sss;p wd=ssa"
STRINGSQL="SELECT * FROM NOMBRAMIENTOS"
Set RS=Conex.execute(STRINGSQL)
'hasta aqui esta mi conexion a la BD
Dim folio
Dim fs
Set fs=Server.CreateObject("Scrpting.FileSystemObject" )
Response.Write("<p><center><font face='verdana' size='3'>")
Response.wite "Reporte nombramientos"
Response.write "</center>"
'Se crea la tabla para que se cree automaticamente
Response.write vbTab & "<TABLE cellpading='2' Border='1' Widht='50%' bordercolor='#2222'>"
Response.write vbTab & "<TR>" & vbCrLf
For I=0 To RS.Fields.Count - 1
Response.Write<"TD align='center'"
Response.write "Style='font-family:verdana;font size:10;'><B>"
Respone.write RS.Fields(I).Name
Next
'Yo le agregue un campo al final a la tabla para poner el resultado de la busqueda de un archivo
Response.write "<td align='center'"
Response.write "Style='font-family:verdana; font size:10;'><B>"
Response.write "Nombramientos"</TD>
Response.write"</B></TD>"& vbCrLf
Do while not RS.EOF
Response.write vbTab&"<TR>"&VbCrLf
For I=0 To RS.Fields.Count - 1
Response.Write<"TD align='left'"
Response.write "Style='font-family:verdana;font size:10;'><B>"
Respone.write RS.Fields(I)
folio=RS.Fields(I)
if isnull(RS.Fields(I)) or RS.Fields(I)=" " then response.write "&nbip;"
Response.write"</B></TD>"&vbCrLf
next
'La sentencia de aqui abajo busca un archivo con el nombre en la columna nombramientos y le pone al final la extension .pdf para corroborar si esta en la carpeta indicada

if fs.FileExist("C:\Documents and settings\Administrador\Mis documentos\Nombramientos\" &folio &".pdf")=true then
Response.Write<"TD align='left'"
Response.write "Style='font-family:verdana;font size:10;'><B>"
Response.write "Si esta </TD>"
else
Response.Write<"TD align='left'"
Response.write "Style='font-family:verdana;font size:10;'><B>"
Response.write "No esta</TD>
end if
Response.write vbTab & ="</TR>" &vbCrLf
RS.MoveNext
Loop
Response.write vbTab & "</TABLE>
RS.Close
Set RS=Nothing
Conex.Close
Set Conx=Nothing
'Quisiera introducir toda esta tabla en un arreglo
%>