upload com fso

[Cesar Wace 0]

Pessoal tenho um codigo de upload em fso que funciona legal, meu problema é que ele tem cinco campos de upload e grava os caminhos das imagens no bd, mas mesmo que que nao envie um arquivo ele ta gravando no bd o espaço vazio, eu queria saber se dá pra por algum esqueminha que se o formulario tiver vazio ele num grave no bd vazio. Abaixo tá o codigo:<!-- #include file = "upload_funcoes.asp" --><%' Chamando Funções, que fazem o Upload funcionarbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Set UploadRequest = CreateObject("Scripting.Dictionary")BuildUploadRequest RequestBinnome = UploadRequest.Item("nome").Item("Value")tipo_foto = UploadRequest.Item("foto").Item("ContentType")tipo_foto2 = UploadRequest.Item("foto2").Item("ContentType")tipo_foto3 = UploadRequest.Item("foto3").Item("ContentType")tipo_foto4 = UploadRequest.Item("foto4").Item("ContentType")tipo_foto5 = UploadRequest.Item("foto5").Item("ContentType")caminho_foto = UploadRequest.Item("foto").Item("FileName")caminho_foto2 = UploadRequest.Item("foto2").Item("FileName")caminho_foto3 = UploadRequest.Item("foto3").Item("FileName")caminho_foto4 = UploadRequest.Item("foto4").Item("FileName")caminho_foto5 = UploadRequest.Item("foto5").Item("FileName")nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))nome_foto2 = Right(caminho_foto2,Len(caminho_foto2)-InstrRev(caminho_foto2,"\"))nome_foto3 = Right(caminho_foto3,Len(caminho_foto3)-InstrRev(caminho_foto3,"\"))nome_foto4 = Right(caminho_foto4,Len(caminho_foto4)-InstrRev(caminho_foto4,"\"))nome_foto5 = Right(caminho_foto5,Len(caminho_foto5)-InstrRev(caminho_foto5,"\"))foto = UploadRequest.Item("foto").Item("Value")foto2 = UploadRequest.Item("foto2").Item("Value")foto3 = UploadRequest.Item("foto3").Item("Value")foto4 = UploadRequest.Item("foto4").Item("Value")foto5 = UploadRequest.Item("foto5").Item("Value")pasta = Server.MapPath("../imagens/imagens/")nome_foto = "/"&nome_fotonome_foto2 = "/"&nome_foto2nome_foto3 = "/"&nome_foto3nome_foto4 = "/"&nome_foto4nome_foto5 = "/"&nome_foto5cfoto = "imagens/imagens" + nome_fotocfoto2 = "imagens/imagens" + nome_foto2cfoto3 = "imagens/imagens" + nome_foto3cfoto4 = "imagens/imagens" + nome_foto4cfoto5 = "imagens/imagens" + nome_foto5if foto <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto) For i = 1 to LenB(foto) MyFile.Write chr(AscB(MidB(foto,i,1))) Next MyFile.Closeend ifif foto2 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto2) For i = 1 to LenB(foto2) MyFile.Write chr(AscB(MidB(foto2,i,1))) Next MyFile.Closeend ifif foto3 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto3) For i = 1 to LenB(foto3) MyFile.Write chr(AscB(MidB(foto3,i,1))) Next MyFile.Closeif foto4 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto4) For i = 1 to LenB(foto4) MyFile.Write chr(AscB(MidB(foto4,i,1))) Next MyFile.Closeif foto5 <> "" then Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto5) For i = 1 to LenB(foto5) MyFile.Write chr(AscB(MidB(foto5,i,1))) Next MyFile.Closeend ifurl_conexao = Server.MapPath("../../bd/dados.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao ' cadastra os dados no banco de dadossql = "Insert into flagras (tipo,fotos) values ('"& nome &"', '"& cfoto &"')"Conexao.Execute(sql)sql2 = "Insert into flagras (tipo,fotos) values ('"& nome &"', '"& cfoto2 &"')"Conexao.Execute(sql2)sql3 = "Insert into flagras (tipo,fotos) values ('"& nome &"', '"& cfoto3 &"')"Conexao.Execute(sql3)sql4 = "Insert into flagras (tipo,fotos) values ('"& nome &"', '"& cfoto4 &"')"Conexao.Execute(sql4)sql5 = "Insert into flagras (tipo,fotos) values ('"& nome &"', '"& cfoto5 &"')"Conexao.Execute(sql5)Response.write "Dados Cadastrados com Sucesso!"response.write "<br><br>você será redirecionado em 5 segundos para acrescentar mais fotos<br>"response.write "<meta http-equiv='refresh' content='5; url=upload_form.asp'/>"%>

[DackAle 0]

if campo <> "" thensql=...end if

[Cesar Wace 0]

Olá DackAleColocaria o if nas 5 sqls?