diassanches

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'/>" %>

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 Next For Each File in Upload.Files foto1p = File.FileName Next For Each File in Upload.Files foto1g = File.FileName Next For Each File in Upload.Files foto2p = File.FileName Next For Each File in Upload.Files foto2g = File.FileName Next For Each File in Upload.Files foto3p = File.FileName Next For Each File in Upload.Files foto3g = File.FileName Next Não adiantou... 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

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

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'/>" %>

Obrigado Rafael pela ajuda!

Boa tarde a todos! Tenho este codigo da minha galeria de Fotos, ele funciona perfeitamente, porém eu estou tentando colocar um campo com o titulo da galeria, mas não estou tendo sucesso, pois toda vez que coloco ele se duplica juntamente com a galeria... Alguém pode me ajudar? <% Dim objRs, x, strquantidade, data data = request.QueryString("data") Set objRS = Server.CreateObject("Adodb.recordset") call Abreconexao strquantidade = request.querystring("quantia") session("quantia") = strquantidade if session("quantia") = "" then objrs.pagesize = 40 End if objRs.open "Select * From galeria where data = '"&data&"' order by id" , Objconn, 3, 3 while NOT objRs.EOF %> <a href=<%=objrs("Foto")%> class="highslide" onclick="return hs.expand(this)"> <img src=<%=objrs("Minifoto")%> alt="AS" title="Clique sobre a imagem para amplia-la" /></a> <div class="highslide-caption"> <%=objrs("Evento")%> </div> <span style="line-height:25%; margin-top:0; margin-bottom:0;"> <% if x mod 3 = 0 then end if x = x + 1 ObjRs.movenext wend %>

Alguém conhece o Ocomon e gostaria de fazer um freelance?

Boa noite pessoal, Estou a procura de um script que ao clicar em visualizar quando o formulario estiver preenchido ele mostra um preview do que foi preenchido Favor caso conheçam, me informe onde encontro Abs