Erro no ASP

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!