Mostrar top 10 en una galeria de fotos

[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!