ERRO! 800a0bcd

[leonardo.ce 0]

Quando troco departamento acontece o seguinte erro:

 

ADODB.Field error '800a0bcd'

 

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

 

/inc.breadcrumbs.asp, line 38

 

 

 

 

na 38 linha está assim

 

 

If idep_dep = "" Then idep_titulo = objRS_dep("")

 

oque eu faço?

 

valeu!

[Gilberto Jr 26]

tem como você postar o codigo ai gente boa?

[leonardo.ce 0]

While departamento <> 0

 

' se vpag estiver vazio

 

if vPag = "" then

 

'seleciona dopartamento pelo idioma e pelo id = querystring(dep)

 

ComandoSQL = "SELECT * FROM departamentos WHERE idioma='" & idioma & "' AND id=" & departamento

 

 

 

else ' se vpag tiver valor então seleciona departamento

'seleciona dopartamento pelo idioma e pelo id = querystring(pag)

 

ComandoSQL = "SELECT id as idpag, departamento, departamento as id, titulo FROM paginas WHERE idioma='" & idioma & "' AND id=" & vPag

 

 

end if

 

Set objRS_dep = objCon.Execute(ComandoSQL)

 

 

' verifica se idep_titulo está vazio entao recupera o titulo da base pelo campo "titulo"

 

If idep_dep = "" Then idep_titulo = objRS_dep("titulo")

 

' se ainda nao é fim da consulta

If Not objRS_dep.EOF Then

 

' se var vazio entao var = icone + var .... ( + var ???? )

If var <> "" Then var = vIcone & var

 

'verifica se tem o documento tem pai, caso nao tenha é porque é um item do menu

if objRS_dep("departamento") <> "0" then

 

' se vpag vazio entao

if vPag = "" then

 

'monta link com dados dos departamentos

var = " <a href='index.asp?dep=" & objRS_dep("id") & "'><span class='tit_top'> " & objRS_dep("titulo") & "</span></a>" & var

 

'senao, se vpag contiver valor

else

' monta link com dados das paginas

var = " <a href='index.asp?dep=" & objRS_dep("id") & "&pag="& objRS_dep("idpag") &" '><span class='tit_top'> " & objRS_dep("titulo") & "</span></a>" & var

vPag = "" ' limpa conteudo de vpag

 

end if

 

else

 

var = " <span class='tit_top' style='text-decoration:none;'> " & objRS_dep("titulo") & "</span>" & var

 

end if

 

 

' codigo comentado anteriormente

' var = " <span class='" & vEstiloLink & "'>" & objRS_dep("titulo") & "</span>" & var

 

' define departameno com o id(departamento) do registro pai

departamento = objRS_dep("departamento")

 

' define idep com o id do registro selecionado

idep = objRS_dep("id")

 

' senao se fim dos registros

Else

 

' define o departamento ou seja, pai como 0

departamento = 0

 

' FIM Not objRS_dep.EOF

End If

 

Wend

[fabio138 0]

Problema está nessa linha pois não a nenhum verificação se o objRS_dep("titulo") tem algum registro

             If idep_dep = "" Then idep_titulo = objRS_dep("titulo")  

faça algo desse tipo

 

 

If not objRS_dep.Eof then
    If idep_dep = "" Then idep_titulo = objRS_dep("titulo")  

[xanburzum 169]

verifique se realmente, não há nenhum registro. Por exemplo:

 

<% 
    set conn = CreateObject("ADODB.Connection") 
    conn.open <connection string> 
    set rs = conn.execute(<sql>) 
    do while not rs.eof 
        ' process 
        rs.movenext 
    loop 
    ' ... 
%>

Para evitar esse erro de "explodir" a sua página , você precisa , para o caso em que não há registros estão lá. A maneira mais fácil de fazer isso é adicionando as seguintes linhas:

 

<% 
    set conn = CreateObject("ADODB.Connection") 
    conn.open <connection string> 
    set rs = conn.execute(<sql>) 
    if not rs.eof then 
        do while not rs.eof 
            ' process 
            rs.movenext 
        loop 
    else 
        response.write "No matches." 
    end if 
    ' ... 
%>

[leonardo.ce 0]

Não deu certo.. eu poderia fazer o seguinte..

redirecionar para uma pagina quando acontecer este erro.. porém como eu faria?

[jrcardozo 4]

retira

If idep_dep = "" Then idep_titulo = objRS_dep("titulo")

 

e coloca abaixo do

 

If Not objRS_dep.EOF Then

[leonardo.ce 0]

Problema está nessa linha pois não a nenhum verificação se o objRS_dep("titulo") tem algum registro

             If idep_dep = "" Then idep_titulo = objRS_dep("titulo")  

faça algo desse tipo

 

 

If not objRS_dep.Eof then
    If idep_dep = "" Then idep_titulo = objRS_dep("titulo")  

usei isso

 

If not objRS_dep.Eof then

Response.redirect("idiomas.html")

If idep_dep = "" Then idep_titulo = objRS_dep("titulo")

end if

 

quando vai acontecer o erro ele redireciona a pagina

 

valeu galera