Ver Mensaje Individual
  #7 (permalink)  
Antiguo 12/01/2006, 16:56
estlui
 
Fecha de Ingreso: noviembre-2003
Mensajes: 209
Antigüedad: 21 años, 5 meses
Puntos: 0
Poco a poquito se resuelve el asuntito....

Gracias de nuevo a todos los que me ayudan....

Mi pagina eliminado.asp recibe estos datos por medio de la URL

Código HTML:
http://localhost/ctrlherramentales/eliminando.asp?CB=1&CB=3&Submit=Borrar
despues de seleccionar los checkbox de los registros que deseo eliminar y darle click en borrar.
Por medio de response.write veo que es lo que reciben las variables y la sentencia SQL.

CB=Request("CB")
response.write(cb)

el valor de la variable CB es igual a: 1, 3


sql= "DELETE FROM dbo.CtrlHerrametales WHERE NumPlano IN " & Request("CB")
response.write(sql)

el valor de la variable sql es igual a esto: DELETE FROM dbo.CtrlHerrametales WHERE NumPlano IN 1, 3

Creo y pienso que esta bien hasta ahi, pero cuando pongo el codigo:

ObjCommand.Execute(sql)

Que es para ejecutar la sentencia SQL

Me marca este error:

Microsoft VBScript runtime (0x800A01A8)
Object required: ''

Ya le estuve buscando por todos lados y no le doy....

Les dejo el codigo completo de la pagina que borra los registros de las BD's, en serio mil, pero mil garcias:

Código:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ConnCtrlHerramentales.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_ConnCtrlHerramentales_STRING
Recordset1.Source = "SELECT * FROM dbo.CtrlHerrametales"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Documento sin t&iacute;tulo</title>
</head>

<body>
<%
CB=Request("CB")
response.write(cb)
sql= "DELETE FROM dbo.CtrlHerrametales WHERE NumPlano IN " & Request("CB")
response.write(sql)
ObjCommand.Execute(sql)


%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>