Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/01/2011, 06:42
Avatar de JJF
JJF
 
Fecha de Ingreso: mayo-2005
Mensajes: 205
Antigüedad: 19 años
Puntos: 0
Exclamación Problema con loop

Tengo este codigo y el problema consiste en que si me muestra el link que genero, no me muestra la imagen y viceversa.

Obviamente necesito me muestre las 2 cosas.




Cita:
Conexion:

<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ= " & Server.MapPath("DB/mibase.mdb")

ssql = " Select * from IMG Where IDP = " & Request.QueryString("IDP")
Set RS1=Conn.Execute(ssql)

%>



PAginación:



<table width="26%" border="2" cellpadding="2" height="119" id="table56" bordercolor="#CFF9A2">
<tr>
<%
counter=0
Do While Not Rs1.EOF
%>
<td height="111" align="center" valign="top" width="141" bgcolor="#CFF9A2">
<A href="imgbig/<%=Rs1("IMG")%>" rel="lightbox" class="horizontal" >
<IMG src="imgmini/<%=Rs1("IMG")%>" width="136" height="105" align="middle"></A>
<br>
</td>
<%
counter=counter+1
If counter Mod 4=0 Then Response.Write "</tr><tr>"
Rs1.MoveNext
Loop
%></tr>

&nbsp;</table>
Por favor, hace más de una semana y no encuentro qué es lo que pasa.
Muchas gracias.