Upload

[Reinaldo 0]

Bom dia!

 

Gostaria de uma ajuda nesse caso:

Estou usando o codigo abaixo pra fazer o upload de fotos e cadastar no banco o nome e os devidos textos:

Agora no caso do campo foto se ele vai fazio dá erro como posso controlar essa variavel para aceitar o campo vazio?

 

 

CODE

categoria=objUpload.form("categoria")

nomeCliente = objUpload.form("nomeCliente")

url=objUpload.form("url")

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

 

 

sql="INSERT INTO subcategoria (ID_CATEGORIA,SUBCATEGORIA,URL,FOTO) VALUES ('"&categoria&"','"&nomeCliente&"','"&url&"','"&foto&"')"

Set objRs= cnn.execute(sql)

[Hebe 0]

você pde utilizar um JavaScript

 

function che(fnm){rro="";d=document.forms[fnm];if(d.nom.value=="Nome"){rro+="			 O campo 1 não foi preenchido\n";}if(d.ema.value=="E-mail"){rro+="			 O campo 2 não foi preenchido\n";}if(rro!=""){msg="__________________________________________________________\n\n";msg+="Sua mensagem não pode ser enviada porque algum erro foi encontrado.\n";msg+="Preencha o(s) campo(s) solicitado(s) e tente novamente:\n";msg+="__________________________________________________________\n\n";alert(msg+rro);return false;}

ou um em asp

 

if trim(campo1)=""or trim(campo2)=""then
response.write"<br><div align='center'style='padding:3px;border:1px solid #d0d0bf;width:550px'><b>Você não preencheu um ou mais campos. Para corrigir <a href='java script:history.go(-1)'>clique aqui!</a></b></div>"
else

[Reinaldo 0]

Mas a questão é que o campo foto não é obrigatório, quero que ele passe sem erro entendeu.

[Hebe 0]

você pode controlar isso atraves do banco de dados... o campo foto tem que aceitar vazio

[Mário Monteiro 179]

Mas este tratamento geralmente é feito no proprio opjeto de upload

 

Qual está usando?

[Reinaldo 0]

Segue todo o código.

 

CODE

'Cria uma instancia do objeto Upload e atribui a varivel objUpload.

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

 

'Determinamos True em UseVirtualDir para que possamos utilizar o caminho virtual.

'objUpload.UseVirtualDir = True

GetExtensionName = false

objUpload.UseUniqueNames = False

 

 

objUpload.Save "c:\Inetpub\ssiara\web\imagem"

 

 

 

categoria=objUpload.form("categoria")

nomeCliente = objUpload.form("nomeCliente")

url=objUpload.form("url")

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

 

 

sql="INSERT INTO subcategoria (ID_CATEGORIA,SUBCATEGORIA,URL,FOTO) VALUES ('"&categoria&"','"&nomeCliente&"','"&url&"','"&foto&"')"

Set objRs= cnn.execute(sql)

 

 

 

'Limpa a instncia criada na memria do servidor.

Set objUpload = nothing

 

'Aqui ns verificaremos se ocorreu algum tipo de erro com os dados carregados. O objeto Err guarda o ltimo erro, caso nenhum erro tenha ocorrido o objeto conter o valor 0 (zero) com isso podemos verificar o valor do objeto e determinarmos qual mensagem ser dada ao usurio.

If Err <> 0 Then

 

'Aqui estamos imprimindo na tela do usurio a descriao do erro e seu nmero.

Response.Write Err.Description & " " & Err.Number & "<br>"

Response.Write "<font face=Verdana, Arial, Helvetica, sans-serif size=2><b>Houve erro(s) ao carregar o(s) arquivo(s) anexado(s)!<br><a href=java script:history.back(-1)>Voltar</a> </b></font>"

Else

'Se o objeto Err for igual a 0 ser apresentado a mensagem de sucesso e os dados estarao salvos no caminho determinado acima

 

response.Write("<script>alert('Caastra Efetudo com Sucesso');</script>")

response.Write("<script>top.location='Cadastra_clientes.asp'</script>")

 

End if

 

[Reinaldo 0]

  Mário Monteiro disse:

Mas este tratamento geralmente é feito no proprio opjeto de upload

 

Qual está usando?

Cara tentei fazer esse tratamento tb e não deu resultando, obvio tô fazendo errado.