Mostrar top 10 en una galeria de fotos
 

Buenos días a todos!

Tengo un problema al querer mostrar un top 10 con fotos, la página trata sobre paisajes de lugares distintos. Cuando muestro todas las fotos de un lugar lo hago sin problemas, pero al mostrar el top10 me surgen problemas. En la tabla de las imagenes tengo un campo favorito, donde guardo un 0 un 1, es decir si es uno es favorito si es 0 no, pongo diez 1 por cada lugar.El código que tengo hecho es el siguiente:

<%
Dim primera
Dim numf
numf = 1
primera = 1

Response.Write("<table width='"&AnchoTabla&"%' border='0' cellspacing='0' cellpadding='0'>")


For f=1 To 5
Response.Write("<tr>")

For c=1 To 2

cuantosRegistros = 0

If (Not Rs.EOF) Then
rsNombre = Rs("Nombre")
rsDescripcion = Rs("Descripcion")
rsFotos = Rs("Fotos")
rsModo = Rs("Modo")
rsCalidad = Rs("Calidad")
rsCarpeta = Rs("Carpeta")
rsOrdinal = Rs("Ordinal")
rsAncho = Rs("Ancho")
rsAlto = Rs("Alto")
rsAutor = Rs("Autor")
rsEmail = Rs("Email")
rsFavorito = Rs("Favorito")
If rsFavorito = 1 Then
If rsAncho = "" And rsAlto = "" Then

'Dependiendo de la resolucion cambia el popup
If (rsModo = "horizontal") Then
If (rsCalidad = "Media") Then
ancho = 800
alto = 600
Else
If (rsCalidad = "Baja") Then
ancho = 400
alto = 300
Else
ancho = 1000
alto = 800
End If
End If
Else
If (rsCalidad = "Media") Then
ancho = 600
alto = 800
Else
If (rsCalidad = "Baja") Then
ancho = 300
alto = 400
Else
ancho = 800
alto = 1000
End If
End If
End If

Else

ancho = rsAncho
alto = rsAlto

End If

Response.Write("<td width='14.2%' align='center'><font face='Verdana, Arial, Helvetica, sans-serif' color='#FFE391' size='1'>")
Response.Write numf
'Columna de la foto
Response.Write("<center><img alt='Pinche sobre la imagen para ampliarla.' src='"&rsCarpeta&"/100x100/"&rsFotos&"' border='0' class=bordeNegro onClick='window.open(""verImagen.asp?Carpeta="&rsC arpeta&"&ancho="&ancho&"&alto="&alto&"&Modo="&rsMo do&"&FotoCasa="&rsFotos&"&Lugar="&rsNombre&"&Calid ad="&rsCalidad&"&Autor="&rsAutor&"&Email="&rsEmail &""", ""popup"", ""toolbar=no,location=no,directories=no,status=no, menubar=no,resizable=no,scrollbars=auto,width="&an cho&",height="&alto&",top=20,left=50"");return false;'></center>")

Response.Write("</font></td>")
numf = numf + 1


Else

Response.Write("<td></td>")
Response.Write("<td></td>")
End If
End if
Next

Response.Write("</tr>")
Response.Write("<tr>")

' For cont = primera To primera + 6

' if (cont <= registrosTotales) then
' Response.Write("<td width='14.2%' align='center'><font face='Verdana, Arial, Helvetica, sans-serif' color='#FFE391' size='1'>")
' Response.Write(cont)
' Response.Write("</font></td>")
' else
' Response.Write("<td></td>")
' end if
' Next

primera = primera
Response.Write("</tr>")

Next

Response.Write("</table> ")
Response.Write("</center>")

End If
%>


<!-- #Include virtual="/Legio-vii/inc/cerrar_rs.asp" -->
<%
End Sub


Si alguien me puede ayudar se lo agradeceré!!
Saludos

Re: Mostrar top 10 en una galeria de fotos
 

Es un enriedo tu codigo... tienes que ser mas ordenado! Ademas no pusiste todo el codigo, falta como abres el recordset, el principio del Sub, de donde salen algunas variables... en fin...

Creo que lo que necesitas es algo asi:

Saludos! :adios:

Re: Mostrar top 10 en una galeria de fotos
 

Gracias por responder lo intento y te comento sino buscaré otra soluccion

Re: Mostrar top 10 en una galeria de fotos
 

Gracias por tu ayuda el problema lo tenia en el where de la select!

Saludos :aplauso::-)