Mostrar top 10 en una galeria de fotos

[portillo18]

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

[i_e_s27]

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:

Código:

SQL = "SELECT * FROM tabla WHERE Favorito = 1"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conexion

If Rs.EOF AND Rs.BOF Then Response.End()

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

Do While NOT Rs.EOF
	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 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("<tr>")
	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="&ancho&",height="&alto&",top=20,left=50"");return false;'></center>")
	Response.Write("</font></td>")
	Response.Write("</tr>")
	Rs.MoveNext
Loop
Response.Write("</table>")
%>
<!-- #Include virtual="/Legio-vii/inc/cerrar_rs.asp" -->

Saludos!

[portillo18]

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

[portillo18]

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

Saludos