Sistema de upload

[shumi 0]

Galera,beleza?Estou usando o Upload sem componentes do forum e estranho que esta dando erro. eu uso esse script em uns 3 sisteminhas que fiz, mas nesse que to fazendo ta dando erro e não consigo ver onde é! :blink: Vejam:

<!-- #include file = "upload_funcoes.asp" --><%Dim Conexcao' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------codbar = UploadRequest.Item("codbar").Item("Value")foto = UploadRequest.Item("foto").Item("Value")comentario = UploadRequest.Item("comentario").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_foto = UploadRequest.Item("foto").Item("ContentType")' Caminho completo dos arquivos enviadoscaminho_foto = UploadRequest.Item("foto").Item("FileName")' Nome dos arquivos enviadosnome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))' Conteudo binario dos arquivos enviadosfoto = UploadRequest.Item("foto").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("imagens/lojas")nome_foto = "/"&nome_foto' pasta + nome dos arquivoscfoto = "imagens/lojas" + nome_foto' Fazendo o Upload do arquivo selecionadoif foto <> "" thenSet 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)))NextMyFile.Closeend if' Conecta-se ao Banco de Dadosurl_conexao = Server.MapPath("banco\db_chopp_brahma.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dados	sSQL = "INSERT INTO fotos(codbar,foto,comentario,ultima_alteracao) VALUES ('"& codbar &"','"& cfoto &"','"& comentario &"','"& Session("login") &"')"	Conexcao.Execute sSQL,intRetornoset RS=nothingSet Conexcao=nothingConexcao.CloseResponse.redirect("fotos_incluir.asp?msg=1")%>

e da o erro:

Microsoft VBScript runtime error '800a01a8' Object required: '' /ambev/upload_form2.asp, line 52

Linha 52 é Conexcao.Execute sSQL,intRetornoValeu!

[shumi 0]

Falta de atenção minha!Valeu Lucas funfou!ABraços