Função de Upload, como deixar em branco...

[Carlos Moreira 0]

Olá pessoal td bem?

 

Eu tenho essa função abaixo no meu upload, ta funcionando td certinho, mas eu gostaria de

fazer uma coisa.

 

Quando eu cadastra-se uma noticia sem foto, gostaria que no banco ficasse em branco, mas esta ficando com a função, alguem sabe como posso fazer?

 

<!-- #include file = "uploadfuncoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBin' Recuperando os Dados Digitados ----------------------categoria = UploadRequest.Item("categoria").Item("Value")assunto = UploadRequest.Item("assunto").Item("Value")titulo = UploadRequest.Item("titulo").Item("Value")fonte = UploadRequest.Item("fonte").Item("Value")materia = UploadRequest.Item("materia").Item("Value")usuario = UploadRequest.Item("usuario").Item("Value")' Tipo de arquivo que esta sendo enviadotipo_imagem1 = UploadRequest.Item("imagem1").Item("ContentType") 'arquivo 1tipo_imagem2 = UploadRequest.Item("imagem2").Item("ContentType") 'arquivo 2' Caminho completo dos arquivos enviadoscaminho_imagem1 = UploadRequest.Item("imagem1").Item("FileName") ' caminho 1 caminho_imagem2 = UploadRequest.Item("imagem2").Item("FileName") ' caminho 2' Nome dos arquivos enviadosnome_imagem1 = Right(caminho_imagem1,Len(caminho_imagem1)-InstrRev(caminho_imagem1,"\"))nome_imagem1 = Right(nome_imagem1, len(nome_imagem1)-Instr(nome_imagem1,".")+1)Novo_nome = Replace(date, "/","")&Hour(time)&Minute(time)&second(time)&"_1"  'novo nome do arquivo (imagem1)nome_imagem1 = novo_nome&nome_imagem1nome_imagem2 = Right(caminho_imagem2,Len(caminho_imagem2)-InstrRev(caminho_imagem2,"\"))nome_imagem2 = Right(nome_imagem2, len(nome_imagem2)-Instr(nome_imagem2,".")+1)Novo_nome2 = Replace(date, "/","")&Hour(time)&Minute(time)&second(time)&"_2"  'novo nome do arquivo (imagem2)nome_imagem2 = novo_nome2&nome_imagem2' Conteudo binario dos arquivos enviadosimagem1 = UploadRequest.Item("imagem1").Item("Value")imagem2 = UploadRequest.Item("imagem2").Item("Value")' pasta onde as imagens serao guardadaspasta = Server.MapPath("../imagens/imagens")nome_imagem1 = "/"&nome_imagem1nome_imagem2 = "/"&nome_imagem2' pasta + nome dos arquivoscimagem1 = "imagens/imagens" + nome_imagem1cimagem2 = "imagens/imagens" + nome_imagem2' Fazendo o Upload do arquivo selecionadoif imagem1 <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem1)For i = 1 to LenB(imagem1)MyFile.Write chr(AscB(MidB(imagem1,i,1)))NextMyFile.Closeend ifif imagem2 <> "" thenSet ScriptObject = Server.CreateObject("Scripting.FileSystemObject")Set MyFile = ScriptObject.CreateTextFile(pasta & nome_imagem2)For i = 1 to LenB(imagem2)MyFile.Write chr(AscB(MidB(imagem2,i,1)))NextMyFile.Closeend if' cadastra os dados no banco de dadossql = "Insert into materias (categoria,assunto,titulo,fonte,materia,usuario,data,imagem1,imagem2) values ('"& categoria &"', '"& assunto &"', '"& titulo &"', '"& fonte &"', '"& materia &"', '"& usuario &"', '"& now &"', '"& cimagem1 &"', '"& cimagem2 &"')"Conn.Execute(sql)%>

EDIT

Por favor Carlos, utilize as tags CODE quando for postar seu codigo.Preste atenção nisso. Todas vez edito seus tópicos. Obrigado, LucasBr

[Carlos Moreira 0]

Exato, ele ta gravando o caminho no banco, mas gostaria de quando nao tiver fotos ele ficar em branco

[Carlos Moreira 0]

Entendi o que você quis dizer, ja pensei nisso tambem, mas pense comigo.Essa função renomeia a imagem conforme dia/mes/ano e hora do servidor, pra nunca sobrepor imagem, entendeu?Entao como farei pra colocar o nome no IF?

[Carlos Moreira 0]

Ele renomeia o em branco tambem.Fica assim 2352006170238_1 entendeu?que quer dizer 23/5/2006 17:02 38 _1ahh e esqueci de dizer esse _1 é uma esquema que montei pra diferenciar a 1ª imagem da 2ª imagem a segunda fica assim _2você entendeu o pq q não da pra fazer o IF

[Carlos Moreira 0]

Lucas obrigado pela atenção, mais vou ser mais um pouquinho inconveniente.Eu sou leigo ainda no assunto.Esse if vai quando eu for recuperar os dados do banco ou na função?E tambem você poderia escrever pra mim o codigo if?o nome q estou usando no banco para as imagens são imagem1 e imagem2Obrigado pela atenção Deus abençõe

[Carlos Moreira 0]

Fala Lucas td bem?Veleu mesmo pelo insentivo de eu tentar pra aprender, mas não sei mesmo kraveja se é isso que tenho q fazer?____________________________if nome_imagem2 = "" thensql (sem o campo do caminho)elsesql (completa)end if____________________________minha sql é essasql = "Insert into materias (categoria,assunto,titulo,fonte,materia,usuario,data,imagem1,imagem2) values ('"& categoria &"', '"& assunto &"', '"& titulo &"', '"& fonte &"', '"& materia &"', '"& usuario &"', '"& now &"', '"& cimagem1 &"', '"& cimagem2 &"')"Conn.Execute(sql)____________________________o que teria q fazer aqui?