Saludos. Estoy intentando eliminr u registro de una BD, tengo tosdos los permiso ok "control total". uso el sig. codigo y no se elimina el registro
'CONECTO A LA BASE DE DATOS
Set conectar = Server.CreateObject("ADODB.Connection")
conectar.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("listamae.mdb"))
set registrars=Server.createobject("ADODB.Recordset")
registrars.ActiveConnection = conectar
registrars.Source = "maestro"
registrars.LockType = 2
registrars.open
registrars.MoveFirst
do while not registrars.EOF
'HAGO UNA CONSULTA, PARA SELECCIONAR EL REGISTRO
if ( registrars("documento") = session("apdocumento")) then
%>
<table width="80%" border="0" CELLPADDING="2" CELLSPACING="2">
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Codigo</td>
<td valign="top" width="75%" ><% response.write registrars("codigo")%>
</tr>
<tr>
<td valign="top" width="25%" >Documento</td>
<td valign="top"><% response.write registrars("documento") %>
</tr>
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Fecha de emisión</td>
<td valign="top"><% response.write registrars("fechaemi") %>
</tr>
<tr>
<td valign="top" width="25%" >Ultima revisión</td>
<td valign="top"><% response.write registrars("urevision") %>
</tr>
<tr bgcolor="#eeeeee">
<td valign="top" width="25%" >Numero de revisión</td>
<td valign="top"><% response.write registrars("nrorevision") %>
</tr>
<tr>
<td valign="top" width="25%" >Estatus</td>
<td valign="top"><% response.write registrars("estatus") %>
</tr>
</table>
<%
'UNA VEZ SELECIONADO LO ELIMINO
registrars.delete
registrars.update
end if
registrars.movenext
loop
registrars.close
conectar.close
Set registrars = nothing
Set conectar = nothing
%>
PERO NO ELINA NADA Y DA EL SIGIIENTE ERROR
"No se pudo eliminar nada en las tablas especificadas."
AGRADEZCO CUALQUIER AYUDA. GRACIAS
