Limitar quantidade de imagens na pagina

[Dias Sanches 0]

Boa noite,

 

Estou ha alguns dias tentanto limitar o número de imagens que aparece em umas das paginas, más não estou tendo sucesso.

 

Você podem me ajudar

 

Vejam meu código.

 

<%
Data=request.queryString("Data")
Classe=request.queryString("Classe")
foto=request.queryString("foto")
Produto=request.queryString("Produto")
Valor=request.QueryString("Valor")
Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("../dados/dados.mdb")
Conn.Open DSNtest

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM produtos WHERE  Classe='Athelier'ORDER BY id asc"
'"SELECT * from xp order by id asc"
rs.Open SQL, conn, 3
%>

                    <%
Do While NOT rs.EOF
   If cont=0 Then
   Response.Write "<tr>"
     End If
   Response.Write "<td>"
   %>
                    <table width="160" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td align="center" valign="middle"><a href="produto.asp?id=<%=rs("id")%>"><img src="<%=rs("foto")%>" alt="<%=rs("Produto")%>" width="152" height="152" border="0" style="border: 2px solid #EBD7D0; padding: 5px; "/></a></td>
                          </tr>
                          <tr>
                            <td height="25" align="center" valign="middle" class="Verdana-12-743C31-Normal"><%=rs("Produto")%> <br />
                              <span class="Verdana-12-verm-titulo-Bold">R$ <%=rs("Valor")%> </span></td>
                          </tr>
                          <tr>
                            <td height="15" align="center" valign="middle" class="Verdana-12-743C31-Normal"></td>
                          </tr>
                        </table>                        
                        <%
Response.Write "</td>"
cont=cont+1
If cont=4 Then ' Definimos a Quantidade de colunas
If Cont > 7 Then exit do 'Determina a quantidade de imagens expostas
     Response.Write "</tr>"
  cont=0
  End If
 rs.MoveNext
 Loop 
 %>

[xanburzum 169]

você pode usar uma gallery image, e você pode limitar atraves dela, ou tb colocando dentro do loop para exibicao apenas 3 imagens

[jrcardozo 4]

faça uma paginação, como se fosse de listagem de dados de texto

[Dias Sanches 0]

Boa tarde pessoal,

 

Não tive sucesso ainda...

 

Creio que estou me confundindo neste campo do código.

 

<%
Response.Write "</td>"
cont=cont+1
If cont=4 Then ' Definimos a Quantidade de colunas
If Cont > 7 Then exit do 'Determina a quantidade de imagens expostas
     Response.Write "</tr>"
  cont=0
  End If
 rs.MoveNext
 Loop 
%>

Esta acontecendo o seguinte se deixo

If Cont > 7 Then exit do 'Determina a quantidade de imagens expostas

com

If Cont > 3

ele fica certinho porém aparece apenas uma linha com as quatro colunas determinadas. Quando deixo daquela forma anterior >7 ele aparece todos os itens cadastrados ele não para no 7 ou no 8

[Dias Sanches 0]

Bom dia,

 

xanburzum e jonathandj

 

Realmente estou confuso normalmente eu utilizo uma galeria com CSS e funciona normalmente sem a legenda, mas se add a legenda ela se distorce, por isso que resolvi trabalhar com esse codigo, porque coloco os textos dentro de uma tabela e não tenho risco de distorcer.

 

Eu consegui determinar o número de colunas, eu queria que decesse até duas linhas por isso pensei em limitar as imagens mais não estou tendo sucesso.

 

Por favor me dêem uma luz