scrpt para tope en la muestra de registros

[abac4d]

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

[DesarrolladorNet]

Iniciado por abac4d

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

no se si te entendi bien
Si necesitas un topo
puedes utilizar TOP de SQL, te mostrara solo los primeros registros

SELECT TOP 70 GRUPO FROM 2EMPRESAS WHERE 1GRUPO = 'MEGACABLE'

saludos

[Sicofrat]

Ho te doy otra solucion que es la que aplicamos en mi proyecto.

Pasa al procedimiento un parametros filas y otro paginas para hacer una paginacion.

El resultado des select guardalo en una una tabla temporal. Algo asi lo unico que es SQL, si te vale aplicalo.


ALTER PROCEDURE XXX
(
@pagina int,
@filas int
)
AS

SET NOCOUNT ON
CREATE TABLE #t_table
(
FEC_PROPUESTA datetime NOT NULL,
COD_PROPUESTA char(8) NOT NULL,
ID int IDENTITY (1, 1) PRIMARY KEY NOT NULL
)

-- Obtener el primero y último registro
DECLARE @primero int
DECLARE @ultimo int


SELECT @primero = (@pagina - 1) * @filas
SELECT @ultimo = (@pagina * @filas + 1) - 1


-- Limitar el número de registros
SET ROWCOUNT @ultimo

INSERT INTO #t_table
SELECT
FEC_PROPUESTA,
COD_PROPUESTA

FROM
TREPROCA

/* Se descartan los registros iniciales que no queremos
gracias al campo ID en funcion de @primero */
SELECT
* --, @total AS TOTAL_FILAS
FROM
#t_table
WHERE
ID > @primero

Un saludo