Upload FreeAspUpload

[Cesão 1]

Olá amigos, consegui usar certinho o FreeAspUpload... o único problema está sendo minha página de alteração.. qdo é apenas 1 arquivo, minha alteração funciona perfeitamente dessa maneira:

 

<!--#include file="conn/conexao.asp"--><!--#include file="espiao.asp"--><!-- #include file="conn/freeaspupload.asp" --><%  Dim uploadsDirVar  uploadsDirVar = "e:\home\yazigiararaquara\web\araraquara\images\agenda" %><%function SaveFiles	Dim Upload, fileName, fileSize, ks, i, fileKey	Set Upload = New FreeASPUpload	Upload.Save(uploadsDirVar)		' If something fails inside the script, but the exception is handled	If Err.Number<>0 then Exit function	SaveFiles = ""	ks = Upload.UploadedFiles.keys	id_agenda = Upload.form("id_agenda")titulo = Upload.form("titulo")data = Upload.form("data")resumo = Upload.form("resumo")evento = Upload.form("evento")	if (UBound(ks) <> -1) thenimagem = Upload.UploadedFiles("imagem").FileNameElseimagem = Upload.form("imagem2")End IfSQL="UPDATE agenda SET titulo='"& titulo &"', data='"& data &"', resumo='"& resumo &"', evento='"& evento &"', imagem='"& imagem &"' WHERE id_agenda="& id_agenda &""conexao.Execute(SQL)'Response.Write(SQL)end functionresponse.write SaveFiles()Response.redirect"admin_agenda.asp"%>

Tentei usar o mesmo principio para 2 arquivos, mas nao funciona.. fiz dessa maneira:

 

<!--#include file="conn/conexao.asp"--><!--#include file="espiao.asp"--><!-- #include file="conn/freeaspupload.asp" --><%  Dim uploadsDirVar  uploadsDirVar = "e:\home\yazigiararaquara\web\araraquara\images\news" %><%function SaveFiles	Dim Upload, fileName, fileSize, ks, kst, ksi, i, fileKey	Set Upload = New FreeASPUpload	Upload.Save(uploadsDirVar)		' If something fails inside the script, but the exception is handled	If Err.Number<>0 then Exit function	SaveFiles = ""	kst = Upload.UploadedFiles("thumb").keys	ksi = Upload.UploadedFiles("imagem").keysid_news = Upload.form("id_news")titulo = Upload.form("titulo")data = Upload.form("data")noticia = Upload.form("noticia")	if (UBound(kst) <> -1) thenthumb = Upload.UploadedFiles("thumb").FileNameElsethumb = Upload.Form("thumb2")End Ifif (UBound(ksi) <> -1) thenimagem = Upload.UploadedFiles("imagem").FileNameElseimagem = Upload.Form("imagem2")End IfSQL="UPDATE news SET titulo='"& titulo &"', data='"& data &"', noticia='"& noticia &"', thumb='"& thumb &"', imagem='"& imagem &"' WHERE id_news="& id_news &""conexao.Execute(SQL)'Response.Write(SQL)		 end functionresponse.write SaveFiles()response.redirect"admin_news.asp"%>

Ja me disseram p eu usar For Each para esse caso de 2 arquivos, mas nao sei como usar o for each... alguém poderia me ajudar? Não consigo de jeito nenhum fazer funcionar...

 

O que quero fazer é que ele faça o upload apenas dos arquivos que eu alterar... ou seja... se eu quiser alterar apenas um dos arquivos, seleciono qual quero e o outro nao seleciono... e como nao vou selecionar nada, ele deixa como está no banco... como fiz no de 1 arquivo só

[Cesão 1]

alguém?

[jrcardozo 4]

galera....conversando com o cesão pra tentar resolver esse problema cheguei a essa solução...se alguem ai souber a maneira mais correta posta ai pois tanto eu quanto ele nunca haviamos trabalhado com esse componente:

 

Dim uploadsDirVaruploadsDirVar = "C:\uploads" 	Dim Upload, fileName, fileSize, ks, kst, ksi, i, fileKey	Set Upload = New FreeASPUpload	Upload.Save(uploadsDirVar)	SaveFiles = "" ks = Upload.UploadedFiles.keys id_news = Upload.form("id_news") titulo = Upload.form("titulo") data = Upload.form("data") noticia = Upload.form("noticia") thumb = Upload.form("thumb2") imagem = Upload.form("imagem2")  on error resume next if (UBound(ks) <> -1) then  imagem = Upload.UploadedFiles("imagem").FileName End If  if err.number=424 then  imagem = Upload.form("imagem2") end if  on error resume next if (UBound(ks) <> -1) then  thumb = Upload.UploadedFiles("thumb").FileName   End If  if err.number=424 then  thumb = Upload.form("thumb2") end if   SQL="UPDATE news SET titulo='"& titulo &"', data='"& data &"', noticia='"& noticia &"', thumb='"& thumb &"', imagem='"& imagem &"' WHERE id_news="& id_news &""conexao.Execute(SQL) response.redirect"admin_news.asp"%>

com isso ele consegue guardar na variavel o nome do arquivo quando o mesmo for diferente do que existe no DB.

[Cesão 1]

Putz cara!! Mando benzão!!Nada a declarar!!O cara foi e fez o negócio funcionar de um jeito que TODO MUNDO AKI vai poder usar!!Valew mesmo veio!! Ta funfando direitinho!! ;)

[jrcardozo 4]

estamos ai pra isso hehehe http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[marvi 0]

Ola Jonathandj,esse <!-- #include file="conn/freeaspupload.asp" --> que esta tenho que ter tambem ou só os comandos que voce mostrou? se sim queria o freeaspupload.asp.Obrigado!!Marcelo

[jrcardozo 4]

Ola Jonathandj,esse <!-- #include file="conn/freeaspupload.asp" --> que esta tenho que ter tambem ou só os comandos que voce mostrou? se sim queria o freeaspupload.asp.Obrigado!!Marcelo

terá que ter o arquivo que faz o uploadbaixe os arquivos aquihttp://www.freeaspupload.net/freeaspupload/freeASPUpload.zipsite do desenvolvedor http://www.freeaspupload.net/Abraço