UPDATE de fotos com DUNDAS

[Veronica Gravino 0]

Ola Pessoal eu tenho um formulario que faz o upload de 3 fotos e um campo texto estou usando o DundaUpload2.0... pra fazer o upload das fotos ele faz normal o problema é que quando eu quero atualizar só o texto e dou o submit na pagina, ele PERDE o nome das 3 imagens ou quando quero alterar 1 imagem só ele perde o valor das outras duas e só salva 1.. nao sei oque esta acontecendo, se algum ja passou por isso e puder me ajudar Agradeço!

 

o form:

 

<form action="" method="post" name="form" onSubmit="return Atualiza();" enctype="multipart/form-data">
	<input type="hidden" name="pegafoto1" value="<%=rs("foto1_est")%>" />
	<input type="hidden" name="pegafoto2" value="<%=rs("foto2_est")%>" />
	<input type="hidden" name="pegafoto3" value="<%=rs("foto3_est")%>" />
   <input type="hidden" name="id_est" value ="<%=rs("id_est")%>" />
  <textarea name="desc_est" cols="70" rows="10" class="formulario" id="textarea"><%=rs("desc_est")%></textarea>
  <input name="file1" type="file" class="formulario" value="<%=rs("foto1_est")%>" />
  <input name="file2" type="file" class="formulario" value="<%=rs("foto2_est")%>" />
  <input name="file3" type="file" class="formulario" value="<%=rs("foto3_est")%>" />
<input name="button" type="submit" class="formulario" id="button" value="salvar" />
</form>

 

o ASP:

<%
Call abre_conexao(ConnString,conexao)
dim objupload
set objupload = server.CreateObject("Dundas.upload.2")
objupload.Maxfilesize = 819200 'aqui define o tamanho máximo de cada imagem.

objupload.useuniquenames = true
objupload.SavetoMemory

id_est =objupload.form("id_est") 'Aqui peguei o id do imovel vindo da pagina do formulario.
desc1 = objupload.form("desc_est") 'Aqui é a descrição da imagem Ex: Foto da varanda

file1 = objupload.form("file1") 'Aqui começa a pega os campos imagens vindo do formulario.
file2 = objupload.form("file2")
file3 = objupload.form("file3")

pegafoto1 = objupload.form("pegafoto1")'Aqui os campos hidden se o file estiver vazio
pegafoto2 = objupload.form("pegafoto2")
pegafoto3 = objupload.form("pegafoto3")


StringName = (FormatoData("ddmmaa")&FormatoHora("hhmmss"))
dim imagem(3) 'Aqui eu defino a quantidade de imagens que quero fazer o upload.
for each objuploadedfile in objupload.files
i = i + 1
imagem(i) = objupload.getfilename ( objuploadedfile.OriginalPath )
'Galera atenção: Daqui para baixo eu nomeio as imagens usando o id do imovel
if imagem(1) <> "" then 'Aqui verifico se á imagem no ( file1 ) para ser uplodeanda.
imagem(1) = ""&StringName&"1.jpg"
else
imagem(1) = pegafoto1
end if
if imagem(2) <> "" then
imagem(2) = ""&StringName&"2.jpg"
else
imagem(2) = pegafoto2
end if
if imagem(3) <> "" then
imagem(3) = ""&StringName&"3.jpg"
else
imagem(3) = pegafoto3
end if

objuploadedfile.SaveAs "e:\vhosts\santanaativa.com.br\httpdocs\administrativo\estrutura\fotos\"&imagem(i)&""

next

set objupload = nothing
'faz a inserção dos nomes das imagens no banco de dados
sqlstringInsert ="Update estrutura set desc_est='"& desc1 &"', foto1_est='"& imagem(1) &"', foto2_est='"&imagem(2) &"', foto3_est='"& imagem(3) &"' where id_est="& id_est

Response.write sqlstringInsert
Response.end
'conexao.execute ( sqlstringUpdate ) 
response.redirect "estrutura.asp"

%>

[Veronica Gravino 0]

se eu fizer um "If objupload.IsEmpty " para checar se o objupload esta vazio , seria uma das alternativas mas o problema é que o 'IsEmpty' nao da suporte ao DundasUpload creio, alguem sabe se existe outro comando de verificar se o objupload esta vazio ou nao? Obrigado

 

Tentei fazer assim:

 

 

If objupload.IsEmpty Then
file1 = objupload.form("pegafoto1")
file2 = objupload.form("pegafoto2")
file3 = objupload.form("pegafoto3")
else
file1 = objupload.form("file1").getFileName(File.OriginalPath) 'Aqui começa a pega os campos imagens vindo do formulario.
file2 = objupload.form("file2").getFileName(File.OriginalPath)
file3 = objupload.form("file3").getFileName(File.OriginalPath)
end if

 

 

 

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'IsEmpty'

 

/administrativo/estrutura/insere_fotos.asp, line 19

[Ted k' 126]

só para ão deixar sem resposta:

 

o certo é assim:

 

If IsEmpty(objupload)...

[leandro010188 0]

só para ão deixar sem resposta:

 

o certo é assim:

 

If IsEmpty(objupload)...

cara eu estou com um Problema :wacko:

 

estou querendo um código que faça update renomeia para não apaga o arquivo existente e coloque o

 

nome do arquivo no banco de dados para quando uma pessoa estive mandando um foto

 

aparece logo após o carregamento. ex: orkut no perfil.

 

estou pesquisando e sempre vejo a sua foto explicando

 

cara não teria como você zipa um sistema de update e coloca no rapidshare

 

e passa o link para nós. desde já agradeço pela atenção.