Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>
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 !!!
If rs.EOF = true thenresponse.write "Nao Há registros"elseresponse.write "Há registros"end if
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
beleza.. que bom que resolveu
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.