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
 %>