Problema - Consulta con parametros.

[kid]

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.

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!