[Resolvido] UPLOAD - Erro ao carregar

[marciolvs 1]

Possui um sistema de Upload sem componete, estava funcando normalmente quando de um dia para o outro em um novo teste ele me informou um erro que não havia ocorrido

 

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

Objeto necessário: 'UploadRequest.Item(...)'

/v4/c_2009/sistema/upload_doc.asp, line 40 

' Recuperando os Dados Digitados ----------------------
		De = UploadRequest.Item("txtde").Item("Value")
		Para = UploadRequest.Item("txtpara").Item("Value")
		VPasta = UploadRequest.item("Categorias").Item("Value")
		VsubPasta = UploadRequest.item("SubCategs").Item("Value")'linha 40
		Assunto = UploadRequest.Item("txtassunto").Item("Value")
		'Mensagem = UploadRequest.Item("txtmensagem").Item("Value")
		Data = date
		hora = time

Alguém pode me informar que erro é este.

[marciolvs 1]

Possui um sistema de Upload sem componete, estava funcando normalmente quando de um dia para o outro em um novo teste ele me informou um erro que não havia ocorrido

 

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

Objeto necessário: 'UploadRequest.Item(...)'

/v4/c_2009/sistema/upload_doc.asp, line 40 

' Recuperando os Dados Digitados ----------------------
		De = UploadRequest.Item("txtde").Item("Value")
		Para = UploadRequest.Item("txtpara").Item("Value")
		VPasta = UploadRequest.item("Categorias").Item("Value")
		VsubPasta = UploadRequest.item("SubCategs").Item("Value")'linha 40
		Assunto = UploadRequest.Item("txtassunto").Item("Value")
		'Mensagem = UploadRequest.Item("txtmensagem").Item("Value")
		Data = date
		hora = time

Alguém pode me informar que erro é este.

 

Possui um sistema de Upload sem componete, estava funcando normalmente quando de um dia para o outro em um novo teste ele me informou um erro que não havia ocorrido

 

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

Objeto necessário: 'UploadRequest.Item(...)'

/v4/c_2009/sistema/upload_doc.asp, line 40 

' Recuperando os Dados Digitados ----------------------
		De = UploadRequest.Item("txtde").Item("Value")
		Para = UploadRequest.Item("txtpara").Item("Value")
		VPasta = UploadRequest.item("Categorias").Item("Value")
		VsubPasta = UploadRequest.item("SubCategs").Item("Value")'linha 40
		Assunto = UploadRequest.Item("txtassunto").Item("Value")
		'Mensagem = UploadRequest.Item("txtmensagem").Item("Value")
		Data = date
		hora = time

Alguém pode me informar que erro é este.

 

 

Já foi resolvido..