Limitar quantidade de imagens na pagina
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
%>Discussão (4)
Carregando comentários...