upload de fotos gravando o nome no bd

[Reinaldo 0]

Olá amigos!!

estou tentando inserir o nome das fotos no bd com o scritp abaixo, ele manda as fotos beleza mas só grava o nome da foto do primeiro campo.

 

For Each files In objUpload.files

varfoto = objUpload.GetFileName(objUpload.Files(0).Path)
'varnome=objUpload.form("nomegaleria")
varIDCategoria=objUpload.form("IDCategoria")

next


comando="INSERT INTO eventos_fotos(idcategoria,foto)VALUES('"&varIDCategoria&"','"&varfoto&"')"
set rs=conexao.execute(comando)


response.Write"<script>alert('Cadastro Efetuado com sucesso!!');</script>"
response.Write("<script>top.location='CadEventos.asp'</script>")

' Remover o objeto
Set objUpload = Nothing

[xanburzum 169]

dá um response.write na sua string SQL, para ver o k esta sendo passado

comando="INSERT INTO eventos_fotos(idcategoria,foto)VALUES('"&varIDCategoria&"','"&varfoto&"')"
response.write (comando)
response.end()

e

 

para fazer um for você pode usar assim,

rodutos= Split(Request.Form("produtos"), ",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL = "INSERT INTO lista (lista_prodID,lista_quant) Values ('"&request.form("produtos")(i)&"','"&request.form("qtd_produtos")(i)&"')"

[Reinaldo 0]

Se tratando de upload de fotos a logica é a mesma?

Eu qureo colocar 5 campos file e um para selecionar a categoria, como ficaria isso?

 

grato.

[jrcardozo 4]

qual o componente de upload?

 

pela logica é só colocar o inserte dentro do FOR

[Reinaldo 0]

qual o componente de upload?

 

pela logica é só colocar o inserte dentro do FOR

 

 

Eu estava fazendo isso aqui:

 

For Each files In objUpload.files

varfoto = objUpload.GetFileName(objUpload.Files(0).Path)
'varnome=objUpload.form("nomegaleria")
varIDCategoria=objUpload.form("IDCategoria")

next


comando="INSERT INTO eventos_fotos(idcategoria,foto)VALUES('"&varIDCategoria&"','"&varfoto&"')"
set rs=conexao.execute(comando)


response.Write"<script>alert('Cadastro Efetuado com sucesso!!');</script>"
response.Write("<script>top.location='CadEventos.asp'</script>")

' Remover o objeto
Set objUpload = Nothing

com o dundas.upload envia normalmene as fotos, mas só grava no banco o primeiro campo file.

[xanburzum 169]

você pode usar uma funcao para resgatar o nome do arquivo, dá uma procurada no lab. de script k existem exemplos.

[Bruno Genaro 0]

Eu uso esse código e sempre funcionou:

 

Set Upload = Server.CreateObject("Dundas.Upload.2")

Upload.UseUniqueNames = false

Upload.SaveToMemory

 

redim preserve image(9) 'quantidade de campos file -1 pois o contador começa no 0

for each objuploadedfile in Upload.files 'cria a variavel objuploadedfile

image(x) = Upload.getfilename(objuploadedfile.originalpath) 'pega os nomes originais dos arquivos

objuploadedfile.SaveAs Server.Mappath("../fotos/"& image(x)) 'salva as imagens no diretório escolhido

Set rs = conexao.Execute("INSERT INTO galerias (imagem,id_noticia) VALUES ('"& image(x) &"',"& Cint(request.querysrtring("id")) &")" ) 'o segredo para inserir os nomes em seus respectivos campos no BD está aqui, o insert tem que estar dentro do for each

Set rs = nothing

x=x+1

next

 

Set Upload = nothing

'response.write "ok!"