Microsoft VBScript runtime error '800a01a8' Object required: '[undefined]'

2

I have a routine that was working normally in IE8, when updated to IE 11 it introduces me the following message:

  

Microsoft VBScript runtime error '800a01a8'

     

Object required: '[undefined]'

     

Microsoft VBScript runtime error '800a01a8'

     

Object required: '[undefined]'

     

/quality/adastros.old/upl_conf.asp, line 30

Following script:

' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
num_rc = UploadRequest.Item("TXTrc").Item("Value")            <--- Linha 30

' Tipo de arquivo que esta sendo enviado
tipo_arq = UploadRequest.Item("arq").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_arq = UploadRequest.Item("arq").Item("FileName")

' Nome dos arquivos enviados
nome_arq = Right(caminho_arq,Len(caminho_arq)-InstrRev(caminho_arq,"\"))

Would you have any idea how to solve this case?

    
asked by anonymous 14.01.2016 / 12:10

1 answer

0

I believe the correct method is Items and not Item . I mean that .Item can not .Item .

Then this:

' Recuperando os Dados Digitados ----------------------
num_rc = UploadRequest.Item("TXTrc").Item("Value")            <--- Linha 30

' Tipo de arquivo que esta sendo enviado
tipo_arq = UploadRequest.Item("arq").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_arq = UploadRequest.Item("arq").Item("FileName")

Do this:

' Recuperando os Dados Digitados ----------------------
num_rc = UploadRequest.Items("TXTrc").Item("Value")            <--- Linha 30

' Tipo de arquivo que esta sendo enviado
tipo_arq = UploadRequest.Items("arq").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_arq = UploadRequest.Items("arq").Item("FileName")

Examples:

14.01.2016 / 12:26