Erro de tempo de execução do Microsoft VBScript erro '800a01a8&#39

[Moncor 0]

Pessoal, tenho o seguinte código abaixo:

 

<%@ Language=VBScript %>

<!-- #include file="inc_variavel_copia_digital.asp" -->

<%

Response.Buffer = TRUE

Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest

Set UploadRequest = CreateObject("Scripting.Dictionary")

'Response.Write Request.ServerVariables("PATH_INFO")

'Response.end

BuildUploadRequest RequestBin

contentType = UploadRequest.Item("txtArquivo1").Item("ContentType") -> linha de erro

filepathname = UploadRequest.Item("txtArquivo1").Item("FileName")

filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))

filename = Replace(filename,".","_"& rndit &".")

value = UploadRequest.Item("txtArquivo1").Item("Value")

Mensagem de erro:

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

Objeto necessário: '[undefined]'

/COPIADIGITAL/upload/upload_efetiva.asp, linha 16

E não consigo identificar o porque está acontecendo esse erro, pois sempre funcionou essa página asp, mais a partir dessa semana parou.

Se puderem ajudar eu agradeço.

[hicarocastro 0]

Estou com o mesmo problema, fiz uma volta no tempo e instalei o código original http://www.nerdbb.com/asp-como-fazer-upload-sem-componentes-t53464.html

 

Deu o mesmo problema, acredito que seja algo com o IIS, mas já reinstalei o IIS também e reconfigurei todo.

 

Só me resta agora formatar tudo, no entanto tenho outra máquina em outro lugar com Windows 10 e lá também apresentou o problema, o mais intrigante é que os sites que estão no ar funcionam perfeitamente....

 

Se alguém puder ajudar ficarei muito grato!