qwerty07

Amigos

Recebi uma dll cuja a descrição é a seguinte:

Codigos_Lot Vetor Variant S
Siglas_Lot Vetor Variant S
Nomes_Lot Vetor Variant S
Codigo_Lot variant E
Erro_cod variant S
Erros_desc variant S

Estou tentando executá-la da seguinte forma:

Set Objger=Server.CreateObject("XXXDDDDD.clsRHxxxx")

if (Objger.UNIDADES(codigos_lotacao, siglas_lotacao, nomes_lotacao, Codigo_Lotacao, vCodErr, VDscErr) = true) then
response.write("<p>############################<br>Retorno OK da UNIDADES" & "<br>")
response.write("Codigos_Lotacao = " & Codigos_Lotacao & "<br>")
response.write("Siglas_Lotacao = " & Siglas_Lotacao & "<br>")
response.write("Nomes_Lotacao = " & Nomes_Lotacao & "<br>")
else
response.write("Retorno com ERRO da UNIDADES" & "<br>")
response.write("Código de Erro = " & vCodErr & "<br>")
response.write("Descrição do Erro = " & VDscErr & "<br>")
end if

Recebo sempre esta mensagem de erro:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'UNIDADES'

A linha em que dá este erro é a linha da chamada da dll.

Será que alguém pode me ajudar?