Cadastro

[Mateustg]

Olá, eu tenho um sistema onde a pessoa entra e se cadastra....neste cadsatro ela tem a opção de colocar a foto dela, para isso fiz um imput do tipo file....acontece que se a pessoa não escolher nenhuma foto, o perfil dela ficará sem foto....como faço para caso a pessoa não coloque foto, o sistema pegar uma foto pre-determinada por mim...ou seja...ele não colocou a foto dele, mas ao finalizar o cadastro aparecerá uma foto tipo (sem foto). como faço isso?

[fantasma]

if campo_foto="" then

faça isso................................

else

isoooooooooooo

end if

[Mateustg]

mas posso colocar isso em qualquer local do meu código ou dentro do form de envio???

[Mateustg]

to com problema de aplicar o que você me falou...pois o cadastro é feito por um upload...o código é esse:

<!-- #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 ----------------------
username = UploadRequest.Item("username").Item("Value")
firstname = UploadRequest.Item("firstname").Item("Value")
password = UploadRequest.Item("password").Item("Value")
passwordconfirm = UploadRequest.Item("passwordconfirm").Item("Value")
sex = UploadRequest.Item("sex").Item("Value")
email = UploadRequest.Item("email").Item("Value")
endereco = UploadRequest.Item("endereco").Item("Value")
bairro = UploadRequest.Item("bairro").Item("Value")
cidade = UploadRequest.Item("cidade").Item("Value")
estado = UploadRequest.Item("estado").Item("Value")
blog = UploadRequest.Item("blog").Item("Value")
fotolog = UploadRequest.Item("fotolog").Item("Value")
orkut = UploadRequest.Item("orkut").Item("Value")
icq = UploadRequest.Item("icq").Item("Value")
MSN = UploadRequest.Item("MSN").Item("Value")
ec_icon = UploadRequest.Item("ec_icon").Item("Value")
ocupacao = UploadRequest.Item("ocupacao").Item("Value")
empresa = UploadRequest.Item("empresa").Item("Value")
hobby = UploadRequest.Item("hobby").Item("Value")
escolaridade = UploadRequest.Item("escolaridade").Item("Value")
educacao = UploadRequest.Item("educacao").Item("Value")
atividades = UploadRequest.Item("atividades").Item("Value")
fumante = UploadRequest.Item("fumante").Item("Value")
bebida = UploadRequest.Item("bebida").Item("Value")
comentario = UploadRequest.Item("comentario").Item("Value")
olhos = UploadRequest.Item("olhos").Item("Value")
cabelos = UploadRequest.Item("cabelos").Item("Value")
pele = UploadRequest.Item("pele").Item("Value")
fisico = UploadRequest.Item("fisico").Item("Value")
altura = UploadRequest.Item("altura").Item("Value")
favbebida = UploadRequest.Item("favbebida").Item("Value")
favcidade = UploadRequest.Item("favcidade").Item("Value")
favlivro = UploadRequest.Item("favlivro").Item("Value")
favfilme = UploadRequest.Item("favfilme").Item("Value")
favmusica = UploadRequest.Item("favmusica").Item("Value")
favcomida = UploadRequest.Item("favcomida").Item("Value")
favlugar = UploadRequest.Item("favlugar").Item("Value")
favesporte = UploadRequest.Item("favesporte").Item("Value")
dob = UploadRequest.Item("dob").Item("Value")

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' 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("imagem/")

nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagem" + 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
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("siteusers.mdb")    

' cadastra os dados no banco de dados
sql = "Insert into users (username,firstname,password,passwordconfirm,sex,email,endereco,bairro,cidade,estado,blog,fotolog,orkut,icq,MSN,ec_icon,ocupacao,empresa,hobby,escolaridade,educacao,atividades,fumante,bebida,comentario,olhos,cabelos,pele,fisico,altura,favbebida,favcidade,favlivro,favfilme,favmusica,favcomida,favlugar,favesporte,dob,foto) values ('"& username &"', '"& firstname &"', '"& password &"', '"& passwordconfirm &"', '"& sex &"', '"& email &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& estado &"', '"& blog &"', '"& fotolog &"', '"& orkut &"', '"& icq &"', '"& MSN &"', '"& ec_icon &"', '"& ocupacao &"', '"& empresa &"', '"& hobby &"', '"& escolaridade &"', '"& educacao &"', '"& atividades &"', '"& fumante &"', '"& bebida &"', '"& comentario &"', '"& olhos &"', '"& cabelos &"', '"& pele &"', '"& fisico &"', '"& altura &"', '"& favbebida &"', '"& favcidade &"', '"& favlivro &"', '"& favfilme &"', '"& favmusica &"', '"& favcomida &"', '"& favlugar &"', '"& favesporte &"', '"& dob &"', '"& cfoto &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<b><font size=3>Dados Cadastrados com Sucesso!</font></b>"

' Redireciona após 5 segundos
response.write "<br><br>Você será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='5; url=index2.asp'/>"
%>

então fiquei sem saber...onde coloco a comparação para ele ver se coloca a foto q o cara cadastrou ou se ele não colocar nada...colocar a foto programada por mim???

[Jony Walker]

você coloca isso no momento em que for recuperar o valor desse campo, substitui a linha do script onde você chama essa foto pela estrututra desse if:

if campo_foto <> "" then

recupera o valor e salva a img, endereço, o q você quiser

end if

ou como o fantasma passou, deve gerar o mesmo resultado...

[Mateustg]

Não compreendi muito bem o que você quis dizer...devo substituir a linha do script onde chamo a foto por if campo_foto <> "" Then ???

[.Andreia.]

tipo_foto é o campo da foto? Se for, tenta assim:

' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

if tipo_foto <> "" then

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' 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("imagem/")

nome_foto = "/"&nome_foto

' pasta + nome dos arquivos
cfoto = "imagem" + nome_foto

' Fazendo o Upload do arquivo selecionado

   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

[ri_nepo]

Amigão , não tem o que erra

faça o seguinte

crie uma imagem onde constará por exemplo usuario sem imagem com nome de semimagem.jpg

ai você montar

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

imagem = "semimagem.jpg"

else

imagem = request.form("file")

end if

entendeu ?

abraços

Ricardo