(Resolvido) Página de Erro

[Legionáriors]

Boa noite,

No código a seguir quando vou excluir um usuário cadastrado aparece o erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80020009) O identificador de linha referia-se a uma linha excluída ou marcada para exclusão.

Agradeço mais uma vez aos que ajudarem.

<table border=0 width=100%>
    <tr width=100%><td width=100%><h2>Lista de Administradores</h2></td></tr>
<%
Dim lista_admin,malha1,temp1
If Request.QueryString("acao") = "exclui" Then
    set lista_admin = lojaDB.Execute("SELECT * FROM admin")
    temp1 = 0 
    While not lista_admin.EOF
        temp1 = temp1 + 1
        lista_admin.MoveNext
    Wend
    If temp1 = 1 Then
        %>
        <tr width=100%><td width=100%><font color=red>Existe somente um usuário cadastrado. Não é possível excluir esse administrador.</font></tr>
        <%
        Else
        set lista_admin = lojaDB.Execute("SELECT usuario FROM admin WHERE id=" & Request.QueryString("id"))
        lojaDB.Execute("DELETE FROM admin WHERE id=" & Request.QueryString("id"))
        %>
        <tr width=100%><td width=100%><font color=red>Administrador <b><%=lista_admin("usuario")%></b> removido com sucesso.</font></tr>
        <%
    End If
End If
set lista_admin = lojaDB.Execute("SELECT * FROM admin")
%>
<tr width=100%><td width=100%><table border=1 width=100%>
    <tr width=100%><th width=5%>Id</th><th>Usuário</th><th>Excluir</th></tr>
    <% 
    malha1 = "sim"
    temp1 = 0 
    While not lista_admin.EOF
        %>
        <tr width=100% class=<%=malha1%>><td align=center width=1%><%=lista_admin("id")%></td><td><%=lista_admin("usuario")%></td>
        <td align=center><a href="./exclui_admin.asp?acao=exclui&id=<%=lista_admin("id")%>">Excluir</a></td>
        <%  
        temp1 = temp1 + 1
        lista_admin.MoveNext
        If malha1 = "sim" Then malha1 = "não" Else malha1 = "sim" End If
        Wend
        %>
        </table>
        <tr width=100%><td>Total&nbsp;de&nbsp;Usuários:&nbsp;<%=temp1%></td></tr>
        <%
%>
</table>

[Legionáriors]

O galera será que ninguém pode ajudar nesta tarefa???

Abraço a todos

[bareta]

imprima o nome do admin primeiro para de pois excluir

<%
        Else
        set lista_admin = lojaDB.Execute("SELECT usuario FROM admin WHERE id=" & Request.QueryString("id"))
         %>
        <tr width=100%><td width=100%><font color=red>Administrador <b><%=lista_admin("usuario")%></b> removido com sucesso.</font></tr>
        <%
lojaDB.Execute("DELETE FROM admin WHERE id=" & Request.QueryString("id"))
    End If

[Legionáriors]

Valeu Bareta,

Já consegui resolver o problema no arquivo.

Obrigado pela ajuda.

Abraço

Ps. Pode fechar o tópico.