Erro no ASP

[Tojo 0]

Olá pessoal...

 

Tô com o seguinte erro:

Response object error 'ASP 0185 : 80020003'

 

Missing Default Property

 

/GIGPC/GIGPC_13_Add.asp, line 0

 

A default property was not found for the object.

É um formulário onde tenho 3 textfields, e mais um file field...

 

Preciso salvar os dados dos textfields e a imagem em um banco.

 

Aqui tá meu código (uma parte dele, no caso):

<%@ Language=VBScript %>
<%
'option explicit
Response.Expires = -1
'Server.ScriptTimeout = 600
Server.ScriptTimeOut = 900000
%>
<!--#include Virtual = "ADOVBS.inc"-->
<!--#include Virtual = "Conexao.asp"-->
<!--#include Virtual = "VAI.vbs"-->
<!--#include Virtual = "Classes/Dao/Class.RepositorioClientes_Faturamento.asp"-->
<!--#include Virtual = "Classes/Dao/PC/Class.RepositorioCopia_Contratos.asp"-->
<!--#include Virtual = "Classes/Dao/PC/Class.RepositorioCopia_Contratos_Anexo.asp"-->
<!--#include Virtual = "Classes/Class.freeASPUpload.asp"-->
<%
	ValidaSessao "GIGPC13_I", "GIGPC", "GIGPC\GIGPC_13_Add.asp", "" 'Tipo de Acesso, Setor, AbreASP, AbreDoc
	'Manutencao "SIM", "GIGPC"

	'Clientes
	Set objClientes 	 = New RepositorioClientes_Faturamento
	Set objClientes 	 = objClientes.Listar()

	If Request.QueryString("Grava") = "SIM" Then

		'Classe para Upload caso tenha
		Set Upload = New FreeASPUpload
		Dim uploadsDirVar
		  uploadsDirVar = Application("Caminho_Fisico_Pasta_Aqrs_Upload")
		Upload.Save uploadsDirVar, False 'True -> apagar apos upload
		'response.write "em manutenção."
		'response.end
		'Classe Copia de Contratos
		Set objCopia_Contratos = New RepositorioCopia_Contratos

		'Classe Copia de Contratos - Anexos
		Set objCopia_Contratos_Anexo = New RepositorioCopia_Contratos_Anexo

		xCliente					= Upload.Form("TextCliente")
		xIdentificacao						= Upload.Form("TextIdentificacao")
		xPrefixo					= Upload.Form("TextPrefixo")
		xData						= Upload.Form("TextData")

response.write xCliente
response.write xIdentificacao

		xID_Usuario_Inclusao	= Session("ID_FullUserName")
		xData_Inclusao			= Date

		Cont = -1

		For Each fileItem In Upload.Files()
			Cont = Cont + 1
			ReDim Preserve xAnexo( Cont )
			ReDim Preserve xAnexo_Nome( Cont )
			ReDim Preserve xData_Contrato( Cont )
			xAnexo( Cont ) = fileItem.Path
			xAnexo_Nome( Cont ) = fileItem.FileName
			xData_Contrato( Cont ) = Upload.Form("Text_Data_Contrato" & Cont+1)
		Next

		'OK = objCopia_Contratos.incluirCopia_Contratos	(	xCliente, xIdentificacao, xPrefixo, xData, xID_Usuario_Inclusao, xData_Inclusao )
		OK = objCopia_Contratos.incluirCopia_Contratos	(	xCliente, xIdentificacao, xPrefixo, xID_Usuario_Inclusao, xData_Inclusao )

		If ( OK ) Then
			objCopia_Contratos_Anexo.incluirCopia_Contratos_Anexo objCopia_Contratos.ID, xAnexo, xAnexo_Nome, xData_Contrato, 

xID_Usuario_Inclusao, xData_Inclusao
		End If

		For Each fileItem In Upload.Files()
			Upload.DeleteFile ( fileItem.Path )
		Next

	End If

	'Data = FormataData( Date )
%>

Alguma idéia do que possa ser?

 

Valeu!

[jrcardozo 4]

você selecionou um arquivo para fazer o upload?

[Tojo 0]

Sim... foi selecionado o arquivo... porém, não funciona.

 

Até pq, se eu não seleciono um arquivo, ele cadastra legal...

[Mário Monteiro 179]

voce diz 3 mas tenta recuperar 4

 

xCliente = Upload.Form("TextCliente")

xIdentificacao = Upload.Form("TextIdentificacao")

xPrefixo = Upload.Form("TextPrefixo")

xData = Upload.Form("TextData")