Erro do VBScript

[PRISCILA STOCHINI]

ERRO...

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/ASP/cadastra.asp, line 18

PÁGINA...

<%
Dim bco, rs, sql

Vcodigo = Request.Form("codigo")
Vemail = Request.Form("email")
Vwin = Request.Form("win")
Vproc = Request.Form("proc")
VversaoAUTO = Request.Form("versaoAUTO")
Vsoftware = Request.Form("software")
Vversao = Request.Form("versao")
Vrelease = Request.Form("release")
Vtipo = Request.Form("tipo")
Vduvida = Request.Form("duvida")
Varquivo = Request.Form("arquivo")

sql = "INSERT into banco(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Varquivo&"')"

line 18 Set rs = bco.Execute(sql)
Response.Write(sql)
bco.Close
Set bco = Nothing

URL = "envia.asp"
response.redirect(URL) 
%>

[fantasma]

sql = "INSERT into banco(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Varquivo&"'")

Set rs = bco.Execute(sql)

[PRISCILA STOCHINI]

está isso é o que está no meu codigo....eu só coloquei line 18 pra vocês saberem qual ela é!!

[fantasma]

olha o ultimo parentese do seu cod....???????????

[PRISCILA STOCHINI]

sql = "INSERT into banco(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Varquivo&"')"

Não entedi sua colocação????

[fantasma]

você testou com o meu cod.??

[PRISCILA STOCHINI]

ERROOOOO..SOCORRO...

Microsoft VBScript runtime error '800a01a8'

Object required: 'UploadRequest.Item(...)'

/ASP/envia_BD.asp, line 20

<!-- #include file = "funcoes_upload.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------
codigo = UploadRequest.Item("codigo").Item("Value")
email = UploadRequest.Item("email").Item("Value")
win = UploadRequest.Item("win").Item("Value")
proc = UploadRequest.Item("proc").Item("Value")
versaoAUTO = UploadRequest.Item("versao").Item("Value")
Software = UploadRequest.Item("Software").Item("Value")
versao = UploadRequest.Item("versao").Item("Value")
release = UploadRequest.Item("release").Item("Value")
tipo = UploadRequest.Item("tipo").Item("Value")
duvida = UploadRequest.Item("duvida").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_arquivo = UploadRequest.Item("arquivo").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_arquivo = UploadRequest.Item("arquivo").Item("FileName")

' Nome dos arquivos enviados
nome_arquivo = Right(caminho_arquivo,Len(caminho_arquivo)-InstrRev(caminho_arquivo,"\"))

' Conteudo binario dos arquivos enviados
arquivo = UploadRequest.Item("arquivo").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("obras/")
nome_arquivo = "/"&nome_arquivo

' pasta + nome dos arquivos
Carquivo = "obras" + nome_arquivo

' Fazendo o Upload do arquivo selecionado
if arquivo <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_arquivo)
For i = 1 to LenB(arquivo)
MyFile.Write chr(AscB(MidB(arquivo,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "INSERT into obras_sim(codigo, email, win, proc, versaoAUTO, software, versao, release, tipo, duvida, arquivo) values ('"&Vcodigo&"', '"&Vemail&"', '"&Vwin&"', '"&Vproc&"', '"&VversaoAUTO&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vtipo&"', '"&Vduvida&"', '"&Carquivo&"')"

Conexao.Execute(sql)

' Redireciona para enviar email
URL = "envia.asp"
response.redirect(URL) 

' Mostra Mensagem de Confirmação na Tela
Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos
response.write "<br><br>você será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='5; url=index.asp'/>"
%>

[victormartins]

esse erro ocorre porque o objeto (componente) não esta instalado no servidor