No lo se, pero que tal si haces...
<%
Dim rep, comprobacion
rep = 1
Do while not DS.EOF
and rep<3
rep = rep + 1
%>
<tr>
<td width="79%">
<a href="http://www.perfoparts.com/perfo/productos/Detalle.asp?prod=<%=DS.FieldByName("id").Value%>" ><%=DS.FieldByName("Producto").Value%></a></td>
<td width="21%"><%=strSearch%></td>
</tr>
<%
DS.MoveNext
loop
%>