Error desconocido....

[sharasic]

Tipo de error:
Microsoft OLE DB Provider for Oracle (0x80040E14)
ORA-06550: line 1, column 234: PLS-00103: Encountered the symbol ")" when expecting one of the following: ( - + mod not null others <an identifier> <a double-quoted delimited-identifier> <a bind variable> avg count current exists max min prior sql stddev sum variance execute forall time timestamp interval date <a string literal with character set specification> <a number> <a single-quoted SQL string> The symbol "null" was substituted for ")" to continue.
/misitio/grabacontacto.asp, línea 944


La verdad no tengo idea que me quiere decir......
la linea 944 es oRs.Open oCmd

[Andres95]

parece un error de sintaxis en tu comando....

[sharasic]

...mmmmm, nose, no puedo encontrar el error...

[AlZuwaga]

Microsoft OLE DB Provider for Oracle (0x80040E14)

Es de notar que el error es generado por el motor de la base de datos y no por una mala sintaxis en tu programación (asumo que vbscript).
Por lo tanto, la línea 944 (oRs.Open oCmd) no tiene ningún problema.
El problema está dado en la sentencia SQL que estás usando (que es la que finalmente interactúa con el motor de la BD) así que por favor: colocá la sentencia SQL.

[Andres95]

Iniciado por Al Zuwaga

Por lo tanto, la línea 944 (oRs.Open oCmd) no tiene ningún problema.
El problema está dado en la sentencia SQL que estás usando (que es la que finalmente interactúa con el motor de la BD) así que por favor: colocá la sentencia SQL.

Bueno, creo que no me explique, de hecho me referia a un error en la sentencia...

un saludo

[sharasic]

if not Request.Form("venc_ano") = "" then
oCmd("kvenci") = Request.Form("venc_ano")
if not Request.Form("venc_mes") = "" then
oCmd("kvenci") = Request.Form("venc_ano") + right("00" &Request.Form("venc_mes"),2)
if not Request.Form("venc_dia") = "" then
oCmd("kvenci") = Request.Form("venc_ano") + right("00" &Request.Form("venc_mes"),2) + right("00" &Request.Form("venc_dia"),2)
end if
end if
else
oCmd("kvenci") = null
end if

if not Request.Form("venc_det") = "" then
oCmd("kvencidet") = Request.Form("venc_det")
else
oCmd("kvencidet") = null
end if

if Request.Form("llamado") = "" then
oCmd("kllama_tipo") = null
else
oCmd("kllama_tipo") = Request.Form("llamado")
end if
if Request.Form("tiporespuesta") = "" then
oCmd("kresp_tipo") = null
oCmd("kesta") = "I"
else
oCmd("kresp_tipo") = Request.Form("tiporespuesta")
if Request.Form("tiporespuesta") = "I" then
oCmd("kesta") = "C"
else
oCmd("kesta") = "I"
end if
end if

if Request.Form("compra") = "" or Request.Form("compra") = 0 then
oCmd("klugar_codi") = null
else
oCmd("klugar_codi") = Request.Form("compra")
end if

if localidad_compra = "" then
oCmd("kloca_codi") = null
else
oCmd("kloca_codi") = localidad_compra
end if
if Request.Form("coditipi") = "" then
oCmd("ktipi") = null
else
oCmd("ktipi") = Request.Form("coditipi")
end if
if Request.Form("cantprod") = "" then
oCmd("kcanti_prod") = 1
else
oCmd("kcanti_prod") = Request.Form("cantprod")
end if

Set oRs = CreateObject("ADODB.Recordset")
oRs.Open oCmd

Aca esta el code....perdon por la demora

[Myakire]

A ver ...

Set oRs = CreateObject("ADODB.Recordset")

Creas un objeto recordSet

oRs.Open oCmd

Lo abres? que se supone que vas a obtener con esa operación? que tabla deseas abrir? no haz indicado qué debe regresar el recordSet