Borrado de registros :s

Espero que te ayude, pues yo programa de manera distinta. Primero, tengo un
archivo INC que contiene el código de conexión de la base de datos

DB.INC
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla1=Server.CreateObject("adodb.recordset")
Set Tabla2=Server.CreateObject("adodb.recordset")
Set Tabla3=Server.CreateObject("adodb.recordset")
Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=f:\inetpub\base
de datos\MiBaseDeDatos.mdb"
%>

Entonces la página para eliminar quedaría asi:

ELIMINAR.ASP

<!-- #include file="setup/db.inc" -->
<%
Temp="Select * From MiTabla Where CampoCodigo='" & Request("codigo") & "'"
Tabla1.Open Temp, Conexion,2,3,1
Tabla1.Delete
Tabla1.Close
%>

Ahora ten en cuenta los siguientes detalles:
1. El dato CODIGO lo he capturado en un formulario con el método POST
2. Date cuenta del comillado simple-doble que hay entre & Request("codigo")
&. Esto es porque el dato que estoy pasando es del tipo alfanumerico y lo
voy a comparar con un campo texto. Mejor dicho, es cuando el campo
CAMPOCODIGO es del tipo texto. Si el campo CAMPOCODIGO fuera del tipo
númerico, simplemente se omite la ' de la expresión y se elimina lo final,
quedando asi

Temp="Select * From MiTabla Where CampoCodigo=" & Request("codigo")

Espero que te haya sido de utilidad mi post

ACD

Holas!
Suele ser mas rápido usar directamente un
conn1.execute "DELETE * FROM CLIENTES WHERE ID_CLIENTE = " & variable

"Marcos Galaviz" escribió en el mensaje
news:

Hola, buen dia, gracias a su ayuda he podido insertar y visualizar
registros :D, ahora tambien borro pero ... no borro el que deseo jeje, les
copio el codigo de borrado que pense seria el mas simple pero el problema
que tengo es que no me borra el registro que estoy seleccionando sino el
primero de la tabla :S ¿estoy haciendo algo mal?

<!-- #include file="../SIS_CON.asp" -->
<%Response.AddHeader "Pragma","no-cache"
Response.Expires=0
VARIABLE=REQUEST.QueryString("ID_CLIENTE")

Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Set RS_ALTA = Server.CreateObject("ADODB.Recordset")
RS_ALTA.CursorType = adOpenKeyset
RS_ALTA.LockType = adLockOptimistic
SQL="SELECT * FROM CLIENTES WHERE ID_CLIENTE = "&variable&" "
RS_ALTA.Open "CLIENTES", CONN1

RS_ALTA.DELETE
RS_ALTA.UPDATE


RESPONSE.REDIRECT("LISTA_CLIENTES.asp")
%>