Error desconocido....

[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