Mitchu

Galera não se o que ta acontecendo quando coloco o For i = 0 to 3 beleza mais se mudar para For i = 0 to 4 da o erro abaixo Tipo de erro: (0x80020009) Exceção. /penultimas/Corpo.asp, line 35 alinha que se refere ao erro é <%Do while DataAtual = rsquery("Data")%> segue o codigo completo abaixo <% Corpo = request.QueryString("Corpo") set Conn=server.CreateObject("ADODB.connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\penultimas\Banco\BancoPenultimas.mdb; User Id=admin; Password=" set rsquery = Conn.execute("select Cod_noticia,Titulo,Noticia,Data,hora from TB_Noticia order by cod_noticia desc") If not rsquery.EOF then For i = 0 to 5 if Not rsquery.EOF then DataAtual= rsquery("Data")%> <tr><td bgcolor="#339999"><b><%=DataAtual%></b></td></tr> <%Do while DataAtual = rsquery("Data")%> <tr><td bgcolor="#99CC00"><a href="Default.asp?Corpo=<%=rsquery("Cod_noticia")%>"><b><%=rsquery("Titulo")%></b></a></td></tr> <% if Not rsquery.EOF then rsquery.movenext else Exit Do end if Loop else Exit For end if next end if set rsquery = nothing set Conn = nothing %>