(Resolvido) Dificuldades com upload

diassanches · Outubro 7, 2009

Boa noite pessoal...

Estou tendo uma pequena dificuldade, vocês poderiam me ajudar a resolver.

Esta quase tudo funcionando, as imgens estão sendo hospedadas, esta renomeando direitinho, mas no bd esta gravando apenas uma imagem em todos os campos... ou seja onde é adicionado um novo produto as imagens ficam repetidas.

O que está faltando?

Aqui esta o meu código:

<%



'objRSr("Email") = Upload.Form("Email")

SET Conexao = Server.CreateObject("AdoDB.Connection")
Conexao.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\web\localuser\atheliergeppetto\www\dados\dados.mdb"


SET UPLOAD = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.Save "D:\web\localuser\atheliergeppetto\www\athelier\produtos\"


For Each File in Upload.Files
foto = File.FileName
foto1p = File.FileName
foto1g = File.FileName
foto2p = File.FileName
foto2g = File.FileName
foto3p = File.FileName
foto3g = File.FileName
Next

' Recuperando os Dados Digitados ----------------------
gep = Upload.Form("Categoria")
Produto = Upload.Form("Produto")
Codigo = Upload.Form("Codigo")
Valor = Upload.Form("Valor")
Minidescricao = Upload.Form("Descricao")


SET RS = Server.CreateObject("AdoDB.RecordSet")
Conexao.Execute("INSERT INTO produtos (gep,Codigo,Produto,Valor,Minidescricao,foto,foto1p,foto1g,foto2p,foto2g,foto3p,foto3g) VALUES ('"& gep &"' , '"& Codigo &"' , '"& Produto &"' , '"& Valor &"' , '"& Minidescricao &"' , 'produtos/"& foto & "' , 'produtos/"& foto1p &"' , 'produtos/"& foto1g &"' , 'produtos/"& foto2p &"' , 'produtos/"& foto2g &"' , 'produtos/"& foto3p &"' , 'produtos/"& foto3g &"')")
SET RS = Nothing

For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
response.write "não é uma imagem valida"
End If
Next

' Mostra Mensagem de Confirmação na Tela
Response.write "Parabéns, a notícia foi inserida com sucesso 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='2; url=admin.asp'/>"
%>

bareta · Outubro 8, 2009

For Each File in Upload.Files
foto = File.FileName
foto1p = File.FileName
foto1g = File.FileName
foto2p = File.FileName
foto2g = File.FileName
foto3p = File.FileName
foto3g = File.FileName
Next

isso insere o mesmo nome em todas as variavéis a cada loop...

coloque o insert dentro do loop, e insira uma a uma no banco

diassanches · Outubro 8, 2009

Bom dia Bareta,

beleza?

Não sei se acordei em câmera lenta hoje mais não consegui entender, desculpe mais sem abusar da sua ajuda você poderia ser mais explicito?

Abs

diassanches · Outubro 11, 2009

Boa tarde Bareta

No Banco existe já as colunas com os nomes respectivos como: foto, foto1p, foto1g....

No codigo estou me atrapalahndo para inserir o insert fiz as seguintes funções:

For Each File in Upload.Files

foto = File.FileName

foto1p = File.FileName

foto1g = File.FileName

foto2p = File.FileName

foto2g = File.FileName

foto3p = File.FileName

foto3g = File.FileName

Em sequencia do upload form que recupera os dados digitados no formulário adicionei:

foto1 = Upload.Form("foto1")
foto1p = Upload.Form("foto1p")
foto1g = Upload.Form("foto1g")

Não adiantou Você poderia me ajudar neste caso... Fiz várias buscas no forum procurando sobre adicionar esta linha de código, mas não obtive exito.

<%


SET Conexao = Server.CreateObject("AdoDB.Connection")
Conexao.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\web\localuser\atheliergeppetto\www\dados\dados.mdb"


SET UPLOAD = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.Save "D:\web\localuser\atheliergeppetto\www\athelier\produtos\"


For Each File in Upload.Files
foto = File.fileName
foto1p = File.FileName
foto1g = File.FileName
foto2p = File.FileName
foto2g = File.FileName
foto3p = File.FileName
foto3g = File.FileName
Next

' Recuperando os Dados Digitados ----------------------
gep = Upload.Form("Categoria")
Produto = Upload.Form("Produto")
Codigo = Upload.Form("Codigo")
Valor = Upload.Form("Valor")
Minidescricao = Upload.Form("Descricao")



SET RS = Server.CreateObject("AdoDB.RecordSet")
Conexao.Execute("INSERT INTO produtos (gep,Codigo,Produto,Valor,Minidescricao,foto,foto1p,foto1g,foto2p,foto2g,foto3p,foto3g) VALUES ('"& gep &"' , '"& Codigo &"' , '"& Produto &"' , '"& Valor &"' , '"& Minidescricao &"' , 'produtos/"& foto & "' , 'produtos/"& foto1p &"' , 'produtos/"& foto1g &"' , 'produtos/"& foto2p &"' , 'produtos/"& foto2g &"' , 'produtos/"& foto3p &"' , 'produtos/"& foto3g &"')")
SET RS = Nothing

For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
response.write "não é uma imagem valida"
End If
Next

' Mostra Mensagem de Confirmação na Tela
Response.write "Parabéns, a notícia foi inserida com sucesso 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='2; url=admin.asp'/>"
%>

Vlw

diassanches · Outubro 11, 2009

Resolvido o problema,

Era muito simples resolver.... desculpe por amolar tanto vocês....

Para quem quiser ou que estava com a mesma dificultadade que eu, abaixo esta o código completo.

Abs a todos

<%


SET Conexao = Server.CreateObject("AdoDB.Connection")
Conexao.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\web\localuser\login\www\dados\dados.mdb"


SET UPLOAD = Server.CreateObject("Persits.Upload")

Upload.OverwriteFiles = False
Upload.Save "D:\web\localuser\login\www\athelier\produtos\"


For Each File in Upload.Files
foto = File.fileName
foto1p = File.FileName
foto1g = File.FileName
foto2p = File.FileName
foto2g = File.FileName
foto3p = File.FileName
foto3g = File.FileName
Next



' Recuperando os Dados Digitados ----------------------
gep = Upload.Form("Categoria")
Produto = Upload.Form("Produto")
Codigo = Upload.Form("Codigo")
Valor = Upload.Form("Valor")
Minidescricao = Upload.Form("Descricao")
foto = Upload.Files("file1").FileName 
foto1p = Upload.Files("file2").FileName
foto1g = Upload.Files("file3").FileName
foto2p = Upload.Files("file4").FileName
foto2g = Upload.Files("file5").FileName
foto3p = Upload.Files("file6").FileName
foto3g = Upload.Files("file7").FileName



SET RS = Server.CreateObject("AdoDB.RecordSet")
Conexao.Execute("INSERT INTO produtos (gep,Codigo,Produto,Valor,Minidescricao,foto,foto1p,foto1g,foto2p,foto2g,foto3p,foto3g) VALUES ('"& gep &"' , '"& Codigo &"' , '"& Produto &"' , '"& Valor &"' , '"& Minidescricao &"' , 'produtos/"& foto & "' , 'produtos/"& foto1p &"' , 'produtos/"& foto1g &"' , 'produtos/"& foto2p &"' , 'produtos/"& foto2g &"' , 'produtos/"& foto3p &"' , 'produtos/"& foto3g &"')")
SET RS = Nothing

For Each File in Upload.Files
If File.ImageType = "UNKNOWN" Then
response.write "não é uma imagem valida"
End If
Next

' Mostra Mensagem de Confirmação na Tela
Response.write "Parabéns, a notícia foi inserida com sucesso 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='2; url=admin.asp'/>"
%>

bareta · Outubro 13, 2009

bom eu acho q tinha postado a solução, mais deve te dado algum IPB driver error aqui ou minha net deve te caido... e acabei esquecendo... enfim...

pode remover as linhas

For Each File in Upload.Files
foto = File.fileName
foto1p = File.FileName
foto1g = File.FileName
foto2p = File.FileName
foto2g = File.FileName
foto3p = File.FileName
foto3g = File.FileName
Next

Entrar

(Resolvido) Dificuldades com upload

Pergunta

diassanches

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

diassanches

Link para o comentário

Compartilhar em outros sites

diassanches

Link para o comentário

Compartilhar em outros sites

diassanches

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades