Error apos deletar um registro

[raphpac]

Olá,

Gostaria de entender por acontece da esse erro quando deleto um nome da lista. O nome é deletado perfeitamente, mas a página volta com erro.

Erro:

ADODB.Field error '80020009'

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

/extranet/elistavip2.asp, line 0

<!--#include file="conexao.inc.asp"-->
<%
lojadb.execute("delete from listavip where Código like '"&request.QueryString("X")&"'")

Function FormataNome(ByVal Nome)
    Dim arrNome
    Dim Retorno
    Dim Cont
    Dim objER
    Dim Excecoes
    Set objER        = New RegExp
    objER.IgnoreCase= True
    objER.Global    = True
    Excecoes        = "^(da|das|de|do|dos|e)$"
    objER.Pattern    = Excecoes
    Nome = Lcase(Replace(Nome, "  ", " "))
    arrNome = Split(Nome, " ")
    Retorno = ""
    For Cont = 0 To Ubound(arrNome)
        arrNome(Cont) = Trim(arrNome(Cont))    

        If Not objER.Test(arrNome(Cont)) Then
            If Not arrNome(Cont) = "" Then
                arrNome(Cont) = Ucase(Left(arrNome(Cont), 1)) & Right(arrNome(Cont), Len(arrNome(Cont))-1)
            End If
        End If
        Retorno = Retorno & " " & arrNome(Cont)
    Next
    Set objER = Nothing
    FormataNome = Retorno
End Function
Function FormataData(Data)
   If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2)
End Function

%>
<link href="css/estiloadm.css" rel="stylesheet" type="text/css" />
<div id="conteudo">
  <div class="titulo_pag">Excluir nomes</div>

<%
            Set dados = Lojadb.execute("Select * from agenda Where codigo like '"&request.QueryString("lid")&"'")
 %>
<div id="dados">
  <div><span class="negrito">Local:</span> <%=dados("local2")%></div>
  <div><span class="negrito">Evento: </span><%=dados("evento")%></div>
  <div><span class="negrito">Data:</span> <%=FormataData(dados("data"))%></div>
</div>
<%
          Set rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") 
             %>
    <table width="400" border="0" align="center" class="texto">
            <%
            while not rs.EOF
                If cont=0 Then %> 
                    <tr>
                      <% End If%> 
                     <td>
            <% Response.Write FormataNome(rs("nomevip"))%> <div> <a href="?id=elistavip2&X=<%=rs("Código")%>">Excluir</a> </div>
                
                    <%        
                  Response.Write "</td>"
                     cont=cont+1
                     If cont=2 Then ' Definimos a Quantidade de colunas
                   Response.Write "</tr>"
                     cont=0
                     End If
                     rs.MoveNext
                     Wend
                     rs.Close
                     set rs = Nothing
                      %>  
</table>
</div>

Agradeço qualquer ajuda

[Jonathan Queiroz]

Tente trocar o while/wend pelo do while/loop

Troque isso:

while not rs.EOF

Por:

do while not rs.EOF

E isso:

Wend

Por:

loop

[raphpac]

infelizmente o mesmo erro persiste :(

[Rafael Spilki]

mas veja seu script... na terceira linha você manda deletar e depois no decorrer do script você faz uma consulta que basicamente seleciona as mesmas informações...

O erro não é ao deletar... a mensagem de erro é clara... e é na consulta... a(s) consulta(s) seginte(s) esta retornando vazia porque os registros já foram anteriormente deletados...

sacou?

Da uma revisadinha nas consultas...

Abração

[raphpac]

sim,

mais a função desse script e deletar um nome da lista, apos ser deletado eu queria q ele exibisse a lista novamente.

desculpe, mas no momento estou estudando asp por conta propria e ate o momento desconheço a solução para esse erro :(

[Rafael Spilki]

Ok, mas essa lista que você quer apresentar após o delete provem daonde? Ela tem mesmo referencia com esse registro que você apagou?

[raphpac]

Eu fiz uma agenda para eventos com lista vip. Cada codigo da "agenda" esta ligado a uma tabela "lista Vip".

Quando eu faço essa consulta " rs=LojaDB.Execute("SELECT * FROM listavip WHERE cod_ag LIKE '"&request.QueryString("lid")&"' Order by nomevip") "

ele mostra todos os nomes da "listavip" ligados ao registro da agenda que escolhi.

No painel de Administração eu coloquei para poder excluir os nomes da lista de 1 em 1. So que quando exclui um nome volta essa erro. Ele não esta mostrando a lista novamente com os nomes que sobarao.

Obrigado pela ajuda.

[bareta]

uai, se ele exibe exclui e depois não exibe....

da um refresh na página, exclui, exibe confirmação, redireciona e exibe novamente os registros.

[raphpac]

hmm,

qual seria o comando em asp para dar o refresh sem tempo?

[Jonathan Queiroz]

Você pode fazer assim:

response.redirect("minha_pagina.asp")

Mas nesse caso seria melhor você usar o server.transfer, já que a página será redirecionada só no servidor, não mudando a url do usuário (o que é até mais rápido)

server.transfer("minha_pagina.asp")

[Rafael Spilki]

Google: refresh

http://www.google.com.br/search?hl=pt-BR&a...ta=lr%3Dlang_pt

[]'s Rafael Spilki