Como hacer que si hay n registros me muestre un link

[El_Metallick]

Hola maestros... hace algun tiempo que no me dava una vuelta por aca... jajaj bueno un gusto como siempre pues... al grano.... mi duda es que:

Tengo una sentencia SQL que llama a los top 10 articulos de cierta tabla de una base de datos... pero yo quiero que si en la tabla hay mas de 10 registros me muestre un link pense hacer un rs.recordcount y estuve como 1 hora pensando porque no me corria la tontera... pero logico que nunca el rs va a tener mas de 10 registros pues el select lo hago limitandolo a los 10 ultimos registros... entonce mi duda es como puedo hacerlo....

Bueno eso se les agradece como siempre...

PD: Puede que sea una estupidez pero de verdad que ya me la gano.... jajajaj voy por un cafe en una de esas me ilumino.... por lo general resulta... Saludos

[PMP]

Se me ocurre que hagas un SELECT TOP 11 y que solo imprimas 10 registros, si hay un registro mas imprimes el link.

Código:

'............
Dim I
I = 0
While NOT oRs.EOF AND I < 10
    I = I + 1
    'Imprimes el registro
    oRs.MoveNext
Wend

If NOT oRs.EOF then
   Response.Write("link")
end if

'.........

Saludos

[El_Metallick]

la verdad es que no es lo que necesito... hoy por la mañana pense en ponerle rs.recordcount = 10 pero aun asi no me muestra el link deveria mostrarmelo o no???? me lo muestra solo si le pongo rs.recordcount < 10 pero no me sirve eso... bueno eso seria gracias

[El_Metallick]

se me ocurrio poner = 10 pero aun asi no me funciona

Código:

If rs.recordcount = 10 Then 
Responde.Write ("<p align=""center""><a haref=""listado.asp"">Ver todas las noticias</a></p>") 
End If

no se que puede ser les dejo el codigo entero porsi le pillan la tranca

Código:

<% 
'Abre la conexion con la base de datos a traves de una conexion ODBC 
Set con = Server.CreateObject("ADODB.Connection") 
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias/noticias.mdb") 
 
'Ejecuta un sentencia SQL de consulta 
sql = "SELECT TOP 10 * FROM Noticias ORDER BY id DESC" 
Set rs = con.Execute(sql) 
'Recorre todas las filas del resultado 
Do While Not rs.EOF 
'Muestra la fila actual 
Response.Write (" <tr valign=""middle"">") 
Response.Write (" <td><img src=""images/spacer.gif"" width=""4"" height=""1""></td>") 
Response.Write (" <td width=""95%""><b><img src=""images/arrow_small.gif"" width=""7"" height=""7"">&nbsp;<a href=noticia.asp?id=" & rs.Fields("id") & ">" & rs.Fields("titulo") & "</a></b>") 
Response.Write (" <br><font color=""#696969"">" & rs.Fields("resumen") & "</font><br><br></td>") 
Response.Write (" <td><img src=""images/spacer.gif"" width=""9"" height=""1""></td>") 
Response.Write (" <td width=""99%"" class=""titletext"">&nbsp;</td>") 
Response.Write (" </tr>") 
'Pasa a la siguiente fila 
rs.MoveNext 
Loop 
If rs.recordcount = 10 Then 
Responde.Write ("<p align=""center""><a haref=""listado.asp"">Ver todas las noticias</a></p>") 
End If 
'Libera memoria 
rs.Close 
Set rs = Nothing 
con.Close 
Set con = Nothing 
%>

[Morgui]

Hola, se me ocurre que hacer una consulta a toda la tabla para saber el número de registros total:

sql2 = "SELECT * FROM Noticias"
Set rs2 = con.Execute(sql2)

If rs2.recordcount > 10 Then
Responde.Write ("<p align=""center""><a haref=""listado.asp"">Ver todas las noticias</a></p>")
End If

Espero que te sirva

[Myakire]

Cierto ...., solo quita el TOP 10 (o también puedes usar otra consulta con un Select COUNT(*) ....., para saber el No. de Reg.)

[El_Metallick]

mmm bueno queria evitar el hecho de hacer una doble llamada a la base de datos pero veo que es inevitable.. bueno gracias de todos modos amigos saludos

[PMP]

Disculpa que insista pero me parece que el ejemplo que te pase, encaja perfectamente para lo que necesitas

Código:

<%
'Abre la conexion con la base de datos a traves de una conexion ODBC 
Set con = Server.CreateObject("ADODB.Connection") 
con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("noticias/noticias.mdb") 
 
'Ejecuta un sentencia SQL de consulta 
sql = "SELECT TOP 11 * FROM Noticias ORDER BY id DESC" 
Set rs = con.Execute(sql) 
'Recorre todas las filas del resultado 
Dim I
I = 0
While NOT rs.EOF AND I < 10
I = I + 1
'Muestra la fila actual 
Response.Write (" <tr valign=""middle"">") 
Response.Write (" <td><img src=""images/spacer.gif"" width=""4"" height=""1""></td>") 
Response.Write (" <td width=""95%""><b><img src=""images/arrow_small.gif"" width=""7"" height=""7"">&nbsp;<a href=noticia.asp?id=" & rs.Fields("id") & ">" & rs.Fields("titulo") & "</a></b>") 
Response.Write (" <br><font color=""#696969"">" & rs.Fields("resumen") & "</font><br><br></td>") 
Response.Write (" <td><img src=""images/spacer.gif"" width=""9"" height=""1""></td>") 
Response.Write (" <td width=""99%"" class=""titletext"">&nbsp;</td>") 
Response.Write (" </tr>") 
'Pasa a la siguiente fila 
rs.MoveNext 
Wend
If NOT rs.EOF Then 
Responde.Write ("<p align=""center""><a haref=""listado.asp"">Ver todas las noticias</a></p>") 
End If 
'Libera memoria 
rs.Close 
Set rs = Nothing 
con.Close 
Set con = Nothing 
%>

Saludos

[El_Metallick]

PMP si te lo agradezco pero la verdad es que ahi explique solo lo que no me resultaba pero lo que quiero es que diga hay tantos registros y abajo poner mostrar todos los registros con el link en el eventual caso... osea para lo de mostrar el link que le que me dices si funciona y de maravillas pero = necesitaria una segunda consulta para saber cuantos registros hay en mi tabla.... pero de todas maneras muchisimas gracias por la ayuda saludos

[PMP]

Ah!!! ahora entiendo, perdon mi torpeza.
Y si en ves de hacer un "SELECT TOP 10" haces simplemente un "SELECT", imprimes los 10 primeros registros (si es que los hay) y luego compruebas si hay mas registros. En caso de haberlo imprimes el link y haces un recordcount.

[Myakire]

Iniciado por Myakire

Cierto ...., solo quita el TOP 10 (o también puedes usar otra consulta con un Select COUNT(*) ....., para saber el No. de Reg.)

one more time

[onlykfk]

Checate este link, talves te pueda interesar

http://support.microsoft.com/default...b;en-us;202125

Saludos...

[El_Metallick]

realmente fue una tontera... jajajaj ahora me ilumine y lo que dice PMP y Myakire (jajajaja ahora me esfuerzo en escribirlo bien :P jajajajajjaa) con el código que me diste en un principio y la consulta con un select funcionaria de maravilla osea se me acaba de ocurrir no lo he probado... pero lo pruebo y les comento... saludos

[Myakire]

Se te agradece el esfuerzo, jejeje, ya ves como hay gente que solo espera algo "para hacer leña" (sin hacer referencias, jeje)

[El_Metallick]

jajajajajjajaja osea nisiquiera hay que mencionar nombres :P jajajajjaja.... bueno pero no es para eso que escribo es para comentar que funciono de maravilla... muichisimas gracias nuevamente