Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Upload de múltiplos arquivos


ANDRE_GUSTAVO

Pergunta

Pessoal, estou tentando desenvolver uma galeria de imagens, na qual o usuario(admin) do sistema, possa escolher a quantidade de fotos que deseja subir para o server de uma so vez.

Tenho um formulario para ser inserido as informações da galeria como

TITULO - FOTOGRAFO - DATA

e tambem um campo para informar a quantidade de imagens a serem enviadas

em seguida outra pagina é carregada com as informações gravadas em sessions

e a quantidade de imagens é passada via QUERYSTRING

Caso o usuario informe 10 imagens, são gerados 10 campos para envio dos arquivos, e assim por diante.

Acontece que as imagens estao sendo enviadas para o servidor, mas no banco de dados não é registrado nenhuma imagem.

Gostaria de saber se é possivel e como fazer caso seja possivel, para que sejam gravados no banco de dados todas as imagens enviadas.

Tentei fazer um loop no insert into, de certa forma deu certo, se envio 5 imagens, são realizados 5 registros, mas no campo onde fica o nome da imagem não é registrado nada, fica em branco.

Abaixo esta meu codigo.

grava_galeria.asp

<%

Call AbreConexao 

varCampos = request.QueryString("campos")

Set objUpload = server.CreateObject("Dundas.Upload.2")

objUpload.MaxFileSize = 1999

objUpload.UseVirtualDir = TRUE
objUpload.UseUniqueNames = true

objUpload.Save "coberturas"
                          
for i = 0 to  varCampos             

varFOTO = objUpload.GetFileName(objUpload.Files(0).Path)


strSQLPAGINA = "INSERT INTO coberturas ( cobertura , fotografo , data_cobertura , data , foto ) VALUES ( '"&session("COBERTURA")&"', '"&session("FOTOGRAFO")&"', '"&session("DATA_COBER")&"', '"&session("DATA_CADASTRA")&"','"&varFOT0&"') "

SET rsPAGINA = ConexaoDB.Execute(strSQLPAGINA)

next
CALL Fechaconexao
set rsPAGINA = NOTHING


Set objUpload = nothing

%>

Se alguém souber e puder me ajudar com esse problema desde já ficarei grato.

Obrigado

até mais pessoal.

Editado por Jonathan Queiroz
Link para o comentário
Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

  • 0
basicamente o loop do nome do arquivo deve rodar também...

varFOTO = objUpload.GetFileName(objUpload.Files(i).Path)

Fala ai bareta, beleza mano??

cara não deu certo

aparece o seguinte erro

DSUpload.CollFiles.2 erro '80070057'

Invalid parameter type.

line 38

varFOTO = objUpload.GetFileName(objUpload.Files(i).Path)

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...