hola que tal espero que alguien pueda ayudarme, mi problema es que cuando muestro todos los registros extraidos de mi base de datos atravez de un select, y como es dinamico hay veces en las que me arroja 50, 70, 75, 90, etc, entonces quisiera saber si alguien tiene alguna idea para darle un tope a mis registros osea que me muestre los 70 u 80 olos que sean pero acomodados como en columnas segun el numero de registros mostrados algo asi.
001 020 040 060 080
002 021 041 061 081
003 . . . .
004
y asisucesivamente tengo la idea pero no se como aplicarla
agrego mi codigo para ver si les ayudo a darse una idea de mi seleccion y como lo muestro atravez de <td> y de antemano gracias por su ayuda.
<%
Dim conexion, basedatos
'registros ="SELECT 1GRUPO FROM 2EMPRESAS WHERE 1GRUPO = 'MEGACABLE'"
registros ="SELECT [2RAZON SOCIAL EMP] FROM 2EMPRESAS WHERE [1GRUPO] ='"+ co + com
'registros ="SELECT [2RAZON SOCIAL EMP] FROM 2EMPRESAS WHERE [1GRUPO]='MEGACABLE'"
co = "'"
com = Chr(34)
registros = registros & Request.QueryString("name")+ co
basedatos = Server.MapPath("1GRUPO.mdb")
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
Set registros = conexion.Execute(CStr(registros))
' ´" & CStr(bueno) & "´"
'''''''''''''''''''''''''''''''registros = "registros" + Request.QueryString("name")
' set sql = sql + Request.QueryString("name")
Do While Not registros.EOF
''''SELECT [2EMPRESAS].[2RAZON SOCIAL EMP]
'''FROM 2EMPRESAS
''WHERE ((([2EMPRESAS].[1GRUPO])="AMERICA MOVIL"));
%>
<TR>
<TD><a href="bdp3.asp?name1=<%= registros.Fields("2RAZON SOCIAL EMP").Value %>"><%= registros.Fields("2RAZON SOCIAL EMP").Value %></a>
</TD>
</TR>
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
'conexion.Close
Set conexion = Nothing
%>