
17/07/2008, 15:55
|
| | Fecha de Ingreso: diciembre-2003
Mensajes: 295
Antigüedad: 21 años, 3 meses Puntos: 0 | |
Problema - Consulta con parametros. Tengo el siguiente código:
Código:
Set CoComando = Server.CreateObject("ADODB.Command")
CoComando.ActiveConnection = Mi_STRING
CoComando.CommandText = "insert mensajes (msg_id,msg_titulo,msg_emailautor,msg_temaID,msg_respuestaA,msg_fechaEnvio,msg_texto,Msg_respuestas) values (?, ?, ?, ?, ?, ?, ?, ?)"
CoComando.CommandType = 1
Set p1 = CoComando.CreateParameter("ID", 3, 1)
p1.value = ID
Set p2 = CoComando.CreateParameter("titulo", 200, 1) ' dejar en 200
p2.value = "re: " & Left(Filtro(request("respuesta")),20) & "..."
Set p3 = CoComando.CreateParameter("emailautor", 200, 1)
p3.value = filtro(request("mail"))
Set p4 = CoComando.CreateParameter("temaid", 3, 1)
p4.value = request("foro_id")
Set p5 = CoComando.CreateParameter("respuestaA", 200, 1)
p5.value = request("respuestaA")
Set p6 = CoComando.CreateParameter("fechaenvio", 200, 1)
p6.value = Dia & " " & Hora
Set p7 = CoComando.CreateParameter("respuesta", 200, 1)
p7.value = filtro(request("respuesta"))
Set p8 = CoComando.CreateParameter("Msg_respuestas", 200, 1)
p8.value = filtro(request("respuesta"))
CoComando.Parameters.Append p1
CoComando.Parameters.Append p2
CoComando.Parameters.Append p3
CoComando.Parameters.Append p4
CoComando.Parameters.Append p5
CoComando.Parameters.Append p6
CoComando.Parameters.Append p7
CoComando.Parameters.Append p8
Set ob_rs = CoComando.Execute
Con el cual me aparece el siguiente error. Cita: ADODB.Parameters error '800a0e7c'
Objeto Parameter mal definido. Se proporcionó información incompleta o incoherente.
/mi_ruta/template.asp, línea 118 Y en esa linea tengo.
Código:
CoComando.Parameters.Append p2
O sea, la falla está en ese parametro ?.. que puede ser?
Saludos! |