Gracia Lexus, pero me gustaria un ultimo detalle, te envio el codigo de conexion y por favor si me ayudas.
Dim oConn, rs, SQL, miTabla
Dim Campo1, Campo2
Campo1 = 1
Campo2 = 2
'Para recorrer el vector
SQL="SELECT * FROM Tabla"
set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "..."
set rs = oConn.Execute(SQL)
miTabla = rs.GetRows
'Liberamos los objetos ya!!
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
Response.Write("<TABLE>")
'Recorremos el vector
'Desde el primero hasta el último "registro"...
for I = 0 to UBound(miTabla,2)
Response.Write("<TD>" & miTabla(Campo1, I) & "</TD>")
next
Response.Write("</TABLE>")
---------------
Como uso el codigo que me diste con Get Rows, para realizar 2 o mas columnas, he intentado antes y tengo un error al hacer el Do While:
<%
counter=0
Do While Not Rs.EOF
%>
<td><%=Rs("NombreCampo")%></td>
<%
counter=counter+1
If counter Mod 3=0 Then Response.Write "</tr><tr>"
Rs.MoveNext
Loop
%>
Gracias por tu paciencia.
