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
%>