Erro no upload

[Cançado 0]

Ai pessoal sou iniciante no asp, precisa de um sistema de upload e peguei este que foi postado aqui, so que ta dando este erro:

 

Microsoft VBScript runtime error '800a01a8'

 

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

 

/Upload.asp, line 12

 

 

Na linha 12 o código é:

 

Aeronave = UploadRequest.Item("Aeronave").Item("Value") <---Esta é a linha 12

 

codCategoria = UploadRequest.Item("codCategoria").Item("Value")

Ano = UploadRequest.Item("Ano").Item("Value")

horasTotais = UploadRequest.Item("horasTotais").Item("Value")

horasApos = UploadRequest.Item("horasApos").Item("Value")

Equipamentos = UploadRequest.Item("Equipamentos").Item("Value")

Informacoes = UploadRequest.Item("Informacoes").Item("Value")

Preco = UploadRequest.Item("Preco").Item("Value")

Destaque = UploadRequest.Item("Destaque").Item("Value")

 

Quero so dizer que li todo o tópico relacionado, a este script e se algué pder me ajudar agradeço

 

 

segue também o código completo da página upload.asp

 

 

<!-- #include file = "funcoes.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 ----------------------

Aeronave = UploadRequest.Item("Aeronave").Item("Value")

codCategoria = UploadRequest.Item("codCategoria").Item("Value")

Ano = UploadRequest.Item("Ano").Item("Value")

horasTotais = UploadRequest.Item("horasTotais").Item("Value")

horasApos = UploadRequest.Item("horasApos").Item("Value")

Equipamentos = UploadRequest.Item("Equipamentos").Item("Value")

Informacoes = UploadRequest.Item("Informacoes").Item("Value")

Preco = UploadRequest.Item("Preco").Item("Value")

Destaque = UploadRequest.Item("Destaque").Item("Value")

 

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")

tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")

 

' Caminho completo dos arquivos enviados

caminho_foto = UploadRequest.Item("foto").Item("FileName")

caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")

caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")

 

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))

nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))

 

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

foto2 = UploadRequest.Item("foto2").Item("Value")

foto3 = UploadRequest.Item("foto3").Item("Value")

 

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("Aeronaves/")

nome_foto = "/"&nome_foto

nome_foto2 = "/"&nome_foto2

nome_foto3 = "/"&nome_foto3

 

' pasta + nome dos arquivos

cfoto = "Aeronaves" + nome_foto

cfoto2 = "Aeronaves" + nome_foto2

cfoto3 = "Aeronaves" + nome_foto3

 

 

' Fazendo o Upload do arquivo selecionado

if foto <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

For i = 1 to LenB(foto)

MyFile.Write chr(AscB(MidB(foto,i,1)))

Next

MyFile.Close

end if

 

if foto2 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2)

For i = 1 to LenB(foto2)

MyFile.Write chr(AscB(MidB(foto2,i,1)))

Next

MyFile.Close

end if

 

if foto3 <> "" then

Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3)

For i = 1 to LenB(foto3)

MyFile.Write chr(AscB(MidB(foto3,i,1)))

Next

MyFile.Close

end if

 

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("Dados\Bravo.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 Aeronaves (Aeronave,codCategoria,Ano,horaTotais,horasApos,Equipamentos,Informacoes,Preco,D

estaque,foto,foto2,foto3) values ('"& Aeronave &"', "& codCategoria &", '"& Ano &"', '"& horasTotais &"', '"& horasApos &"', '"& Equipamentos &"', '"& Informacoes &"', "& Preco &", '"& Destaque &"', '"& foto &"', '"& foto2 &"', '"& foto3 &"')"

Conexao.Execute(sql)

 

' 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=principal.asp'/>"

%>

[filipecrosk 0]

existe esse campo AERONAVE no formulario???posta a página do formulario também