26/03/2003, 09:12
|
 | | | Fecha de Ingreso: diciembre-2001
Mensajes: 5.286
Antigüedad: 23 años, 10 meses Puntos: 1 | |
Código:
<%
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
Tabla.Update
%>
</p>
<p><font face="Arial">El registro ha sido <strong>eliminado</strong>
satisfactoriamente
<%
End If
Tabla.Close
Conexion.Close
%>
</font></font></body>
</html>
|