[Resolvido] Microsoft VBScript runtime error '800a000d'

Pessoal Boa noite !

Estou com um erro maluco na aplicação !

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'executarProcedure'

Esse ai !

Bom, executarProcedure é uma função que roda no Banco Oracle, e executo essa mesma chamadas em várias páginas, somente em uma é que ta dando pau ! /applications/core/interface/imageproxy/imageproxy.php?img=http://forum.imasters.com.br/public/style_emoticons/default/huh.gif&key=796dd2e8f5e667be07f01ae4a535735ac497e0cf1e7e3fc219233ca4d7b2023c" alt="Imagem Postada" />

Código abaixo

'Recupera o E-mail do Autorizador if (cint(nCentroDespesa) <> cint(cd_centro_custo)) then sSql = "SELECT TF.DS_EMAIL, TC.ID_RESPONSAVEL_APROV_VIAGEM "&_ "FROM TB_VIG_CENTRO TC "&_ "LEFT JOIN TB_VIG_FUNCIONARIO TF ON TF.ID_FUNCIONARIO = TC.ID_RESPONSAVEL_APROV_VIAGEM "&_ "WHERE TC.CD_CENTRO_CUSTO = "&cd_centro_custo set rsDestinatario = retornaRs(sSql) destinatario = rsDestinatario("DS_EMAIL") id_autorizador = rsDestinatario("ID_RESPONSAVEL_APROV_VIAGEM") else response.Write("858 - Requisitante: "&idRequisitante) response.Write("859 - Solicitação.: "&idSolicitacao) set rsProcessa = executarProcedure("SP_VIG_EMAIL_AUTORIZADOR", idRequisitante, idSolicitacao) <<== Linha do erro !!!! if (cint(rsProcessa("pnRetcode")) = 0) then auxdestinatario = Split(rsProcessa("psDsEmail"),",") destinatario = auxdestinatario(0) id_autorizador = auxdestinatario(1) end if end ifAs variáveis:

idRequisitante: 4408

idSolicitacao: 3308

Já usei a função cInt é não funcionou ! :ermm:

Será que alguém pode me ajudar ?