eof

[betoap 0]

Ola galera!Meu if não ta dando certo, pelo menos eu acho que é isso de uma olhada no script e vejam se conceguem achar o erro ai para mim porfavor, desde ja meus agradecimentoso erro é esseTipo de erro:ADODB.Field (0x80020009)BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

<%Set Conexao = CreateObject("ADODB.CONNECTION")'Conexcao com o BDconStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("DB/MovimentoRenovador.mdb")'Caminho para o BDid=request.QueryString("id")if id <=0 or id>=13 thenid=1end ifselect case idcase 1mes="janeiro"case 2mes="Fevereiro"case 3mes="Março"case 4mes="Abril"case 5mes="Maio"case 6mes="Junho"case 7mes="Julho"case 8mes="Agosto"case 9mes="Setembro"case 10mes="Outubro"case 11mes="Novenbro"case 12mes="Desembro"case elsemes="Janeiro"end selectsql = "select * From Agenda where MesNumero like '%" & id & "%'"'Varialvel para fazer a buscaConexao.Open ConStr'Abre conexaoset rs = server.CreateObject("adodb.recordset") 'faz um recordset para pesquisars.open sql, conexao, 3, 3'isso é para concretizar a pesquisacontador = (rs.recordcount)Response.Write("Havera "&contador&" neste mes clique no tema para obter detalhes")%><table width="330" border="2" cellpadding="0" cellspacing="0" bordercolor="#FF0000">  <tr bordercolor="#FF0000" bgcolor="#FF0000">    <td width="23"><a href="agenda.asp?id=<%=id-1%>"><img src="Admin2/images/ant.gif" width="20" height="20" border="0"></a></td>    <td width="201" align="center"><%=mes%></td> <td width="69" align="center"><font color="#FFFFFF" face="verdana"><b><%=rs("ano")%></b></font></td>    <td width="25"><a href="agenda.asp?id=<%=id+1%>"><img src="Admin2/images/prox.gif" width="20" height="20" border="0"></a></td>  </tr>  <tr>    <td height="117" colspan="4" align="center" valign="top"> <table width="90%" border="0" cellspacing="0" cellpadding="0"><%    If rs.EOF or rs.BOF then  response.Write ("não ha Eventos nesta data")  Response.End  Else  Do Until rs.EOF 'faz um loop para mostar tudo que tem no bd%>  <tr>    <td width="26"><%=rs("dia")%></td>    <td width="266"><%=rs("evento")%></td>  </tr><%  rs.MoveNext'adiciona mais arquivo caso tenha  Loop'acaba o loop  Conexao.close'Fecha a conexção  End if  %></table> </td>  </tr></table>

[Alex Hernandes 0]

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

Veja se tem alguma coisa no banco de dados.

Ou algo com o mes atual.

 

Ps.: Não faça flood, clica em editar no teu tópico.

[kauebranco 0]

neste linha

sql = "select * From Agenda where MesNumero like '%" & id & "%'"'Varialvel para fazer a busca

num deveria ser assim ja que a variavel é numérica ???

ASP [/tr][tr]

sql = "select * From Agenda where MesNumero = " & id 'Varialvel para busca

[/tr]

 

provavelmente esse num seja o erro que num esta impedindo que o seu codigo rode ..mais se eu num me engano quando a variavel é numerica é assim que se faz .....

 

desculpa qq coisa foi só uma ideia !!!

[dark0 0]

If rs.EOF = true thenresponse.write "Nao Há registros"elseresponse.write "Há registros"end if

[betoap 0]

Ai galera achei o erro!!!Seguinte eu estava mostrando um campo antes de fazer a validação do eof <%=rs("ano")%>Ai esta o erro Valeu a ajuda ai pessoal

[dark0 0]

beleza.. que bom que resolveu