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.