Obviamente necesito me muestre las 2 cosas.
Cita:
Por favor, hace más de una semana y no encuentro qué es lo que pasa.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>
</table>
<%
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>
</table>
Muchas gracias.