Me puede explicar alguien por que no borra
Primero hago una busqueda y luego lo selecciono para borrar el primer paso me lo hace sin problemas pero en el segundo me dice registro no encontrado
Gracias
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "pidcompleta"
Tabla.Open "Select * From PID Where [PID]=Trim('" & Request("Registro") & "')",Conexion,2,3,1
If Tabla.BOF And Tabla.EOF Then
%>
<p><font face="Arial">El registro <strong>NO</strong> ha sido encontrado
<%
Else
Tabla.Delete
%>
</p>
<p><font face="Arial">El registro ha sido <strong>eliminado</strong>
satisfactoriamente
<%
End If
Tabla.Close
Conexion.Close
%>
</font></font></body>
</html>