no me Funciona Exit do

[mebarak]

por que no me funcionará Exit do , mi codigo es el siguiente:

<%
Dim rep, comprobacion
rep = 1
Do while not DS.EOF
rep = rep + 1
%>
<td width="79%">&nbsp;<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
if rep = 3 then
exit do
loop
%>

En mi navegador me aparece el siguiente error:

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/perfo/productos/detalle.asp, line 272
loop
^

Gracias por su ayuda...
-::[Mebarak]::-

[Mickel]

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

[mebarak]

Lo que deseo hacer es que me muestre solo 3 registros, pero si solo hay dos me muestre dos, y si solo hay uno, me muestre solo uno, y si hay 20 me muestre solo 3 de esos 20.

Gracias
-::[Mebarak]::-

[mebarak]

deja lo intento gracias

[mebarak]

Por que no se me ocurrio algo tan sencillo...

¡¡¡ Funciono !!!

Gracias

-::[Mebarak]::-

[maestro]

¿Y cual era el problema?

[Mickel]

Por que no se me ocurrio algo tan sencillo...

Si, asi pasa... Anda nomas acostumbrandote si quieres seguir en este negocio...