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 ???

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???

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

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?

vlw..deu certo!

OPS! tentei colocar o cálculo para achar a idade da pessoa...fiz assim: <% fdata = DateDiff("yyyy", rsNiver("dob"), now) %> e para exibir colocquei assim: Response.Write " "&fdata&" " Porém na exibição está vindo o resultado errado, pois ele coloca assim: se a pessoa nasceu em 18/01/1986 -> 20 anos...até aki beleza...mas no outro usuário q nasceu em 18/01/1989 ele também está colocando 20 é deveria ser 17..como faço para corrigir??

Vlw

Ahh outra coisinha...como faço se quiser mostrar quem faz niver neste mês e no dia de hoje???

Vlw de novo...!!! Vlw

É verdade a data é do mês todo..ok! foi mal a manota. quanto ao restante funcionaou beleza...mas uma única pergunta...tem como eu pegar essa data e calcular a idade da pessoa..tipo..eu nasci em 02/03/1980...então gostaria de fazer o cálculo e aparecer idade = 25...tem como?

eu fiz assim: <% Sql = "SELECT * FROM Users WHERE Month(dob) = " &month(now) Set rsNiver = Server.CreateObject("ADODB.Recordset") rsNiver.Open sql, conn, 3, 3 %> <table width="100%" cellpadding="2" cellspacing="0" border="0"> <tr> <td><font face="arial,helvetica" size="1"><%=rsNiver("username")%></font></td> <td><font face="arial,helvetica" size="1"><%=rsNiver("dob")%></font></td> </tr> </table> </font> </body> </html> <% rsNiver.close set rsNiver = nothing conn.close set conn = nothing %> Mas o resultado que me apareceu foi assim: usuáriox 01/01/1999 e só...o restante dos usuários não apareceu e não caiu na data certa...q seria hoje, dia 18/01 o que posso fazer?

Jony Walker, do modo q você fez..no meu BD o dia, mês e ano tem q estar separados...certo!!?? ai q tá, pois é tudo junto..ele cadastra a data junta..assim dd/mm/aaaa

Olá, eu tenho no meu BD o campo de niver...onde pega a data tipo assim: 01/01/1980, o que eu gostaria é de saber como posso estar fazendo o seguinte: Quero fazer uma área de aniversariantes, onde me mostre só os aniversariantes do mês atual...então se tenho 20 ususários que fazem niver no mês 01..gostaria de estar listando eles, como posso fazer isso, puxando os dados deste campo que tenho no BD?? Vlw!

Galera, é o seguinte... Eu tenho um código onde estou colocando campos para serem editados pelo usuário..tipo: <input type="text" name="username" size="20" value="<%=rsProfile("username")%>"> O código acima faz com que no campo apareça para o usuário o que ele cadastrou e se ele quiser mudar, basta digitar outra coisa, mas quando eu uso o type como file, ele não dá certo...deveria aparecer o texto dentro do campo, mas não aparece, como posso fazer para o campo aparecer? O input q uso é este, mas não dá: <input type="file" name="foto" size="20" value="<%=rsProfile("foto")%>" vlw!

Galera, pode deixar, já resolvi agora...era um erro besta q eu estava cometendo...onde eu coloquei foto='"& foto &"' na verdade é foto='"& cfoto &"'...só por uma letrinha o treco tava travando...nossa vlw de mais a ajuda de vocês...brigadu!!!

Coloquei o response.write e descobri que o erro está dando no item de foto...onde apresenta foto='?????AA?? Q é do erro q dá: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''?????AA??'. Bem, este item é o seguinte...eu cadastro uma foto, está foto é enviada para dentro de uma pasta no servidor (upload) e o que quero fazer é que se a pessoa quiser trocar a foto dela...então ela terá q atualizar o cadastro, trocando a mesma...ai q está dando erro, pois quero fazer o update da foto...como faço, sendo q a foto atualizada tem q ser gravada dentro da pasta imagens. O código de upload q tenho e estou mexendo é este: <!-- #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 = "UPDATE users set username='"& username &"', firstname='"& firstname &"', password='"& password &"', passwordconfirm='"& passwordconfirm &"', sex='"& sex &"', email='"& email &"', endereco='"& endereco &"', bairro='"& bairro &"', cidade='"& cidade &"', estado='"& estado &"', blog='"& blog &"', fotolog='"& fotolog &"', orkut='"& orkut &"', icq='"& icq &"', MSN='"& MSN &"', ec_icon="& ec_icon &", ocupacao='"& ocupacao &"', empresa='"& empresa &"', hobby='"& hobby &"', escolaridade='"& escolaridade &"', educacao='"& educacao &"', atividades='"& atividades &"', fumante='"& fumante &"', bebida='"& bebida &"', comentario='"& comentario &"', olhos='"& olhos &"', cabelos='"& cabelos &"', pele='"& pele &"', fisico='"& fisico &"', altura='"& altura &"', favbebida='"& favbebida &"', favcidade='"& favcidade &"', favlivro='"& favlivro &"', favfilme='"& favfilme &"', favmusica='"& favmusica &"', favcomida='"& favcomida &"', favlugar='"& favlugar &"', favesporte='"& favesporte &"', dob='"& dob &"', foto='"& foto &"' WHERE username='"& username &"'" 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'/>" %>

não entendi como fazer o que você falou Kuroi...e ao código, postei ele em cima

bem...o que estou fazendo é o seguinte...eu tenho uma área de upload, onde envia todos os dados inclusive um foto para uma pasta...até aqui tudo beleza...eu quero poder modificar estes dados cadastrados se necessário, dai o update....então estou fazendo do mesmo modo como o upload, porém em vez de inserir os dados (insert) eu estou fazendo um update: <!-- #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 = "UPDATE users set username='"& username &"', firstname='"& firstname &"', password='"& password &"', passwordconfirm='"& passwordconfirm &"', sex='"& sex &"', email='"& email &"', endereco='"& endereco &"', bairro='"& bairro &"', cidade='"& cidade &"', estado='"& estado &"', blog='"& blog &"', fotolog='"& fotolog &"', orkut='"& orkut &"', icq='"& icq &"', MSN='"& MSN &"', ec_icon="& ec_icon &", ocupacao='"& ocupacao &"', empresa='"& empresa &"', hobby='"& hobby &"', escolaridade='"& escolaridade &"', educacao='"& educacao &"', atividades='"& atividades &"', fumante='"& fumante &"', bebida='"& bebida &"', comentario='"& comentario &"', olhos='"& olhos &"', cabelos='"& cabelos &"', pele='"& pele &"', fisico='"& fisico &"', altura='"& altura &"', favbebida='"& favbebida &"', favcidade='"& favcidade &"', favlivro='"& favlivro &"', favfilme='"& favfilme &"', favmusica='"& favmusica &"', favcomida='"& favcomida &"', favlugar='"& favlugar &"', favesporte='"& favesporte &"', dob='"& dob &"', foto='"& foto &"' WHERE password='"& pasword &"'" 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'/>"

ficou assim: sql = "UPDATE users set username= '"& username &"',firstname= '"& firstname &"', password= '"& password &"', email= '"& email &"', endereco= '"& endereco &"', bairro= '"& bairro &"', cidade= '"& cidade &"', estado= '"& estado &"', comentario= '"& comentario &"', olhos= '"& olhos &"', cabelos= '"& cabelos &"', pele= '"& pele &"', fisico= '"& fisico &"', altura= '"& altura &"', foto= '"& foto"' WHERE password= '"& password &"' "

coloquei os dados com você falou e também o Where no final, porém agora ele está mostrando esse erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error in string in query expression ''?????AA??'.

tentei fazer o que você me falou, assim: sql = "UPDATE users set username= "& username &",firstname= "& firstname &", password= "& password &", email= "& email &", endereco= "& endereco &", bairro= "& bairro &", cidade= "& cidade &", estado= "& estado &", comentario= "& comentario &", olhos= "& olhos &", cabelos= "& cabelos &", pele= "& pele &", fisico= "& fisico &", altura= "& altura &", foto= "& foto Conexao.Execute(sql) mas ta dando esse erro: Microsoft OLE DB Provider for ODBC Drivers error '80040e14' [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'mateustosta@yahoo.com.br'. /cadastro/upload_form3.asp, line 89

Olá, tenho vários dados que foram cadastrados...tenho uma área onde posso acessar para trocar os dados caso necessário...então lá me mostra todos os dados que cadastrei...quero q se for mudado algum destes dados ele faça um update na tabela, mas como faço isso...para inserir os dados eu usei assim: sql = "Insert into users (username,firstname,password,email,endereco,bairro,cidade,estado,comentario,olhos,cabelos,pele,fisico,altura,foto) values ('"& username &"', '"& firstname &"', '"& password &"', '"& email &"', '"& endereco &"', '"& bairro &"', '"& cidade &"', '"& estado &"', '"& comentario &"', '"& olhos &"', '"& cabelos &"', '"& pele &"', '"& fisico &"', '"& altura &"', '"& cfoto &"')" Conexao.Execute(sql) Como faço para fazer o update desses dados?

é ralmente o problema era mudar a duplicidade....agora rodou beleza...vlw mesmo Dany. Bjos! fui!

agora entendi, vou tentar modificar aki...quanto ao banco eu uso o Acess2000

mudar o valor, você fala mudar em vez de colocar data_hora e Nome1, colocar outra coisa....e quanto ao banco, como faço para mudar para aceitar valor duplicado?