No te presiones por algo es es verdaderamente sencillo, mira, con recordset quedaría así:
Código:
<table border=1>
<tr><td valign="top">
<%
Dim oConn1,oRs1
Set oConn1 = Server.CreateObject("ADODB.Connection")
Set oRS1 = Server.createobject("ADODB.Recordset")
oConn1.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("prueba.mdb"))
oRS1.Open "select * from columnas",oConn1,3,3
LimMax = oRs1.RecordCount
Cnt=1
While Not oRs1.Eof
if Cnt = 1 Then
%><table border=1><%
End If
if Cnt = CInt(LimMax/2)+1 Then
%></table><td valign="top"><table border=1><%
End if
%><tr><td>Ciclo: <%=Cnt%><td><%=oRs1(1)%><%
Cnt = Cnt + 1
oRs1.MoveNext
Wend
%>
Ahora, despues de que veas que si funciona (ya lo chequé yo
), analízalo encuentrale la lógica, veras que es muy simple adaptarlo a 3 columnas.
Saludos
