Erro: Type mismatch Ubound

[Guest --Paulo Roberto --]

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UBound'

/ExportaParaExcelGeral.asp, line 13

Ao chamar o asp de exportação da este erro de UBound. Consequencia da criação destas variaveis

ArCampos = Session("RsCampos")

ArLinhas = Session("RsLinhas")

É um recordset.

abraço

[bareta]

então deve ser algo assim

ArCampos = Session(Rs("Campos"))

se foi isso que entendi

[Andre_Luiz]

então deve ser algo assim

ArCampos = Session(Rs("Campos"))

se foi isso que entendi

Type mismatch, é um erro que ocorre porque o valor atribuido a função não é permitido para realizar essa operação.

No caso do UBound, o valor que estiver dentro da função, deve ser necessáriamente um array. Em conseguencia, esse erro deve estar sendo gerado porque não está sendo chamado um array para a função.

Para solucionar o problema aconsenho verificar ates de executar se o valor é um array ou não. Exemplo:

If IsArray(variavel_Desejada) Then
   ...
   código
   ...
End If

Abraços