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