Alguma Ideia?

[ratocuiara]

Pessoal é o seguinte.

Tenho um upload que ao enviar uma imagem com o nome "teste.jpg" ele renomeia para com o código mais recente ou seja. digamos que o proximo cadastro é o de numero 9 logo ele renomeia "9teste.jpg".

O meu problema é que se por um acaso a pessoa não quer ou não tem uma imagem para ser insirida ele envia o numero do código impossibilitando assim de eu deixar um valor padrão no bd. Ou seja, se eu enviar o cadastro de numero 9 sem imagem ele cadastra no bd "9.jpg" apagando do bd um valor padrão.

Eu gostaria de saber se vocês tem uma idéia de como posso definir uma imagem padrão do tipo "sem foto" para que seja insirido automáticamente assim que a pessoa insirir algo sem foto....

to no aguardo.

[cyberalexxx]

testa o valor da variavel que armazena o nome do arquivo, caso esteja em branco altere o valor para a foto padrão.

[ratocuiara]

testa o valor da variavel que armazena o nome do arquivo, caso esteja em branco altere o valor para a foto padrão.

ínfelismente não a vaiavel reporta o numero do ID do próximo cadastro

[ri_nepo]

Amigão,

O arquivo que você vai enviar você deve pega-lo de um formulario certo ?

Quando você for tratar a página do recebimento , faça o seguinte

if request.form("file") = "" then

foto = "sem_foto.jpg"

else

foto = request.form("file")

end if

entendeu ?

abraços

Ricardo

[ratocuiara]

Amigão,

O arquivo que você vai enviar você deve pega-lo de um formulario certo ?

Quando você for tratar a página do recebimento , faça o seguinte

if request.form("file") = "" then

foto = "sem_foto.jpg"

else

foto = request.form("file")

end if

entendeu ?

abraços

Ricardo

Essa é a página de recebimento... como eu adptaria isso.

<!-- #include file = "upload_funcoes.asp" -->

<%

' Chamando Funções, que fazem o Upload funcionar

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

idimoveis = UploadRequest.Item("idimoveis").Item("Value")

username = UploadRequest.Item("username").Item("Value")

imovel = UploadRequest.Item("imovel").Item("Value")

negociacao = UploadRequest.Item("negociacao").Item("Value")

dimensoes = UploadRequest.Item("dimensoes").Item("Value")

endereco = UploadRequest.Item("endereco").Item("Value")

bairro = UploadRequest.Item("bairro").Item("Value")

cidade = UploadRequest.Item("cidade").Item("Value")

preço = UploadRequest.Item("preço").Item("Value")

contato = UploadRequest.Item("contato").Item("Value")

ddd = UploadRequest.Item("ddd").Item("Value")

telefone2 = UploadRequest.Item("telefone").Item("Value")

telefone = "("&ddd&") "&telefone2&""

descricao = UploadRequest.Item("descricao").Item("Value")

' Tipo de arquivo que esta sendo enviado

tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados

caminho_foto = Server.MapPath("images/imoveis.jpg")

' Nome dos arquivos enviados

nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados

foto = UploadRequest.Item("foto").Item("Value")

' pasta onde as imagens serao guardadas

pasta = Server.MapPath("imagens/")

nome_foto = "/"&idimoveis&""&nome_foto

' pasta + nome dos arquivos

cfoto = + nome_foto

' Fazendo o Upload do arquivo selecionado

if 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.Close

end if

' Conecta-se ao Banco de Dados

url_conexao = Server.MapPath("fpdb/jornal.mdb")

set conexao = Server.CreateObject("ADODB.Connection")

conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao   

' cadastra os dados no banco de dados

sql = "Insert into TabImoveis (username,imovel,negociacao,dimensao,endereço,bairro,cidade,descricao,telefone,contato,preço,foto) values ('"& username &"', '"& imovel &"', '"& negociacao &"', '"& dimensoes &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& descricao &"', '"& telefone &"', '"& contato &"', '"& preço &"', '"& cfoto &"')"

Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela

Response.write "<div align=center><font color=#FF0000 size=3 face=Tahoma><strong>Dados Cadastrados com Sucesso!</strong></font></div>"

' Redireciona após 5 segundos

response.write "<br><br><div align=center><font color=#FF0000 size=3 face=Tahoma><strong>Voc&ecirc; ser&aacute; redirecionado em alguns instantes.</strong></font></div><br>"

response.write "<meta http-equiv='refresh' content='5; url=lista_imoveis.asp?UserName="& username &"'/>"

%>