Foros del web, para los que viven de bits

PedroJTR · 24-abr-2008, 13:26

Saludos amigos...
Tengo el siguiente código:

Código PHP:


			
<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";"

sql = "SELECT * FROM Noticias ORDER BY id DESC"
Set result = con.Execute(sql)
Do While Not result.EOF
Response.Write "<p><b><font face=Verdana size=1><a href=noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo")&"</a></b><br><font color=""#696969"">• " &result.Fields("copete") & "</font></font></p>"


result.MoveNext
Loop
result.Close
Set result = Nothing
con.Close
Set con = Nothing
%>

Quisiera hacer que solamente me muestre N cantidad de registro, es decir, que no me muestre todos los registros existentes haciendo el Loop.
Trate quitandole el Loop y cerrando el resultado pero no me deja.
Me podrían ayudar?

Muzztein · 24-abr-2008, 13:35

dim x,y
x = 10 ' o la cantidad que necesites
y = 0
Do While Not result.EOF

if y < x then
Response.Write "<a href=noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo")&"</a> • " &result.Fields("copete") & ""
y = y+1
result.MoveNext
else
exit do
end if

Loop

o algo parecido, en cualquier caso checa este link

http://www.tutorial-web.com/asp/loops.asp

Myakire · 24-abr-2008, 16:56

achis! ¿Muzztein? ¿y eso? ¿ya saliste?

24-abr-2008, 13:26	#1 (permalink)
PedroJTR Fecha de Ingreso: febrero-2008 Ubicación: Into System Mensajes: 96	Mostrando N cantidad de registros... Saludos amigos... Tengo el siguiente código: Código PHP: <% Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("noticias.mdb")&";" sql = "SELECT * FROM Noticias ORDER BY id DESC" Set result = con.Execute(sql) Do While Not result.EOF Response.Write "<p><b><font face=Verdana size=1><a href=noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo")&"</a></b><br><font color=""#696969"">• " &result.Fields("copete") & "</font></font></p>" result.MoveNext Loop result.Close Set result = Nothing con.Close Set con = Nothing %> Quisiera hacer que solamente me muestre N cantidad de registro, es decir, que no me muestre todos los registros existentes haciendo el Loop. Trate quitandole el Loop y cerrando el resultado pero no me deja. Me podrían ayudar?

24-abr-2008, 13:35	#2 (permalink)
Muzztein Fecha de Ingreso: noviembre-2002 Ubicación: Hangar 18 Mensajes: 1.225	Re: Mostrando N cantidad de registros... dim x,y x = 10 ' o la cantidad que necesites y = 0 Do While Not result.EOF if y < x then Response.Write "<p><b><font face=Verdana size=1><a href=noticia.asp?id=" &result.Fields("id") & ">"&result.Fields("titulo")&"</a></b><br><font color=""#696969"">• " &result.Fields("copete") & "</font></font></p>" y = y+1 result.MoveNext else exit do end if Loop o algo parecido, en cualquier caso checa este link http://www.tutorial-web.com/asp/loops.asp __________________ On Error Resume Thinking

24-abr-2008, 16:56	#3 (permalink)
Myakire Moderador Fecha de Ingreso: noviembre-2002 Mensajes: 6.487	Re: Mostrando N cantidad de registros... achis! ¿Muzztein? ¿y eso? ¿ya saliste?

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado