Erro No For

[douglasdamame]

Estou tendo um erro neste código que não mostra os registros.

O erro que descreve é:

ADODB.Recordset (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

Se eu tirar o FOR, ele funciona mas ai vai mostrar todos os registros e eu quero limitar.... Não sei se é um conflito com o DO, que faz mostrar em colunas... realmente preciso de uma luz !!!!

 <%

	strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database/mercadonautico.mdb")

	Set rs = Server.CreateObject("adodb.recordset")
	sql="select * from classificados where destaque = 'Sim' and data_exp >= NOW() order by RND(INT(NOW*id_prod)-NOW*id_prod)"

	RS.Open SQL, strConnect, 1, 3
TotalRecs = rs.recordcount

x = 0
For x = 1 to 3
	If rs.eof then
    response.write "Não há registros gravados"
  Exit For
	Else

	%>
                    <table align="center" border="0" cellspacing="10" cellpadding="5" width="120">
                      <tr> 
                        <%
n = 1
c = 5
'c, é o numero de colunas
Do while not RS.Eof
%>
                        <td valign="bottom" align="center"> 
                          <table width="110" border="1" cellspacing="0" cellpadding="0" height="150" bordercolor="#f0f0f0">
                            <tr> 
                              <td bgcolor="#f5f5f5" height="40" valign="middle"> 
                                <div align="center"><font size="1" color="#003366" face="Tahoma"><%=rs("titulo")%></font></div>
                              </td>
                            </tr>
                            <tr> 
                              <td width="78" height="100" valign="middle" align="center"> 
                                <table width="110" border="0" cellspacing="0" cellpadding="0" height="110" align="center">
                                  <tr>
                                      
                                    <td valign="middle" align="center"> 
                                      <div align="center"><img src="fotos/destaque_<%=rs("foto")%>" border="0" align="absmiddle"></div>
                                    </td>
                                    </tr>
                                  </table>
                                  
                                
                              </td>
                            </tr>
                            <tr> 
                              <td bgcolor="#f5f5f5"> 
                                <div align="center"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font color="#FF0000"></font></font><font color="#FF0000"><b>R$</b></font><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font size="1" color="#000000" face="Tahoma"><font color="#FF0000"><b> 
                                  <%=rs("preço")%></b></font></font></font></font><font color="#FF0000"></font></font></font></font></div>
                              </td>
                            </tr>
                          </table>
                        </td>
                        <%
n = n + 1
RS.Movenext
If n > c then
response.write "</tr><tr>"
n = 1
End If
Loop
%>
             </table>
<%
RS.Movenext
End If
Next
%>              

[douglasdamame]

Retirei o FOR e coloquei TOP 10 no select

RESOLVIDO!!!!