Gravar Imagem no Banco após Upload

[fabiosc80 0]

Olá Senhores.

 

Estou com um problema,

 

Após fazer o upload das imagens do meu formulário (ele sobe duas imagens ao mesmo tempo e é AspSmartUpload) .

 

Bom até ai tudo ele sobe.

 

O problema é que na hora de gravar no banco de dados os nomes das imagens ele salva o nome da primeira ou segunda imagem nos dois campos (Imagem Grande e Imagem Pequena) iguais.

 

Tem que salvar o nome da ImagemGrande no campo ImagemGrande e a ImagemPequena no campo ImagemPequena.

 

Não sei pq ta salvando repetido o nome de um dos campos nos dois campos.

 

Olhem o código.

 

 

ASP [/tr][tr]<!--#include file="../conexao.asp"-->

<%Session.LCID = 1046%>

 

<%

 

Dim Titulo,FotoPequena,FotoGrande,Materia

 

' Variaveis

' *********

Dim mySmartUpload

Dim intCount

 

' Criando Objeto

' ***************

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.AllowedFilesList = "gif,jpg,zip,cdr,psd,jpeg,tif,doc,txt,png,htm,html,pdf,ps,prn,ai,fh,fh11,pmd

,qxd"

mySmartUpload.MaxFileSize = 20000000

 

' Upload

' ******

 

mySmartUpload.Upload

 

Titulo = mySmartUpload.form("Titulo")

Materia = mySmartUpload.form("Materia")

 

 

For Each file In mySmartUpload.Files

FotoPequena = File.FileName

next

 

For Each file In mySmartUpload.Files

FotoGrande = File.FileName

next

 

' Salva o arquivo em um caminho virtual

' ****************************************************************************

intCount = mySmartUpload.Save("Upload")

%>

<%

 

Dim SQ

 

SQ = ""

SQ = SQ & "INSERT INTO Orientacoes"

SQ = SQ & "(Titulo,FotoPequena,FotoGrande,Materia)"

SQ = SQ & "VALUES( "

SQ = SQ & "'" & Titulo & "',"

SQ = SQ & "'" & FotoPequena & "',"

SQ = SQ & "'" & FotoGrande & "',"

SQ = SQ & "'" & Materia & "')"

 

 

 

Dim BC : AbreBanco

SET TB = BC.Execute(SQ)

 

response.redirect "bemvindo.asp"

 

%>

[/tr]

[explore 3]

Tanta usar assim!

 

ASP [/tr][tr]response.write(mySmartUpload.form("Titulo"))

response.write(mySmartUpload.form("Material"))

 

For each file In mySmartUpload.Files

If not file.IsMissing Then

file.SaveAs("caminho/blabla" & file.FileName)

End If

[/tr]

 

------------------------------------------------------------------------

 

Coloca isso no seu codigo é bom, indica que a soma dos arquivos deste upload não deve ultrapassar 50000!!!

ASP [/tr][tr]mySmartUpload.TotalMaxFileSize = 50000 < você escolhe o numero[/tr]

 

 

Falo!!!!!!!!!!

[fabiosc80 0]

MAs ele ta subindo pra net,Oque ta acontecendo é que ele ta salvando no banco igual nos dois campos o nome de uma mesma imagem.

[Mário Monteiro 179]

[tr][/tr][tr][/tr]

ASP	For Each file In mySmartUpload.Files FotoPequena = File.FileName next   For Each file In mySmartUpload.Files FotoGrande = File.FileName next

 

isto ta fazendo com que ambos recebam o ultimo nome

 

armazena num array os nomes e depois passa os valores para as respectivas variaveis ou entao insere direto do array

[fabiosc80 0]

ASP [/tr][tr]For Each file In mySmartUpload.Files

FotoPequena = File.FileName

next

 

For Each file In mySmartUpload.Files

FotoGrande = File.FileName

next

[/tr]

 

isto ta fazendo com que ambos recebam o ultimo nome

 

armazena num array os nomes e depois passa os valores para as respectivas variaveis ou entao insere direto do array

Não entendi Mario,

[Mário Monteiro 179]

tipo assimse você passa os nomes A e Bquando entra no laço acontece issona primeira passangemFotoPequena = Ana segunda passangemFotoPequena = Be o mesmo ocorre pra foto grande ou seja ambos terão o nome B...

[fabiosc80 0]

tipo assimse você passa os nomes A e Bquando entra no laço acontece issona primeira passangemFotoPequena = Ana segunda passangemFotoPequena = Be o mesmo ocorre pra foto grande ou seja ambos terão o nome B...

Tem que fazer assim?Ve se ta certo?For Each file In mySmartUpload.FilesFotoPequena = File.FileNamenextFotoPeq = FotoPequena For Each file In mySmartUpload.FilesFotoGrande = File.FileNamenextFotoGran = FotoGrande

[Mário Monteiro 179]

tb não vai funfar

 

mas fui pesquisar e você ja teve esta duvida antes

 

http://www.imasters.com.br/forum/index.php...2&hl=fotogrande

 

http://www.imasters.com.br/forum/index.php...1&hl=fotogrande

 

veja se o conteudo destes topicos te ajudam ou não

 

caso não explica direito aqui...

[fabiosc80 0]

tb não vai funfarmas fui pesquisar e você ja teve esta duvida anteshttp://www.imasters.com.br/forum/index.php...2&hl=fotograndehttp://www.imasters.com.br/forum/index.php...1&hl=fotograndeveja se o conteudo destes topicos te ajudam ou nãocaso não explica direito aqui...

Vou testar, tinha esquecido que ja tive problemas com isso.

[Mário Monteiro 179]

Vou testar, tinha esquecido que ja tive problemas com isso.

ok fabio se precisar é só dizer...