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