Fernando_Ramos
Membros-
Total de itens
155 -
Registro em
-
Última visita
Tudo que Fernando_Ramos postou
-
Pessoal eu uso o Mysub version 3 (newsletter) para mandar noticias de atualizações para os cadastrados no meu site. Eu queria saber se existe como e se existir como é q eu faço para mandar e-mail no formato htm tipo mandar uma página em html para os cadastrados no newsletter?
-
cara eu já usei o domaindlx e não usava por ftp eu não tenho certeza mais eu acho que não tem não mais se você conseguiu usar pelo ftp citado acima por favor nos comunique.
-
cara beleza eu fiz uma modificações e funcionou perfeitamente até q enfim chegamos ao fim deste tópico. Obrigado em cara.
-
cai cai eu usei o seu exemplo mais estou com algumas dúvidas. -qual o smtp que envia o e-mail? - ecomo eu faria para ele recuperar a senha? -e no código o usuário teria que colocar a senha tb? abaixo segue o recuperando.htm aonde esta o form para colocar o e-mail e senha e o recuperando.asp aonde esta o código do cdonts. recuperando.htm <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> coloque sua senha e e-mail <form name="form1" method="post" action="recuperando.asp"> <p> <input name="email" type="text" id="email"> </p> <p> <input name="senha" type="text" id="senha"> </p> <p align="center"> <input name="enviar" type="submit" id="enviar" value="enviar"> </p> </form> </body> </html> recuperando.asp <html> <head> <title>teste</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Fernando\scripts\esqueci senha\db\banco.mdb" sql = "SELECT email, senha FROM usuario WHERE email = '"&email&"'" Set RS = Conn.Execute(sql) If RS.EOF Then Response.write "<p><br><br><br><center>Email Inválido!</center>" Else senha = RS("senha") Call SendPW(email, senha) Response.Write "<p><br><br><br><center>Senha enviada!</center>" RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing End If Sub SendPW(email, senha) Set cdoMail = Server.CreateObject("CDONTS.NewMail") cdoMail.From = "firmino.figueira@terra.com.br" cdoMail.To = email cdoMail.Subject = "Lembrete de senha." cdoMail.Body = senha & vbcrlf & vbcrlf & vbcrlf _ & "*** Mensagem Automatica ***" cdoMail.Send Set cdoMail = Nothing End Sub %> </body> </html> tente me ajudar,eu queria que no recuperando.htm o usuário colocasse o usuario(que foi cadastrado la no cadastro e que vai para o banco de dados de nome banco.mdb na tabela usuario com o campo usuario) e fosse mandado a senha q ele esqueceu para o e-mail que ele cadastrou,e aparecesse uma msg " a sua senha foi enviada para o seu e-mail cadastrado." espero que tenha entendido.
-
cai cai eu usei a sua conta de e-mail,e criei uma conta de e-mail no bol e configueri no bol mesmo para poder usar pop e smtp e a mensagem que deu la no meu servidor quando tento usar. 550 Command failed. Mailbox is unavailable. cara você não sabe como fazer esse lance de esqueci senha com o CDONTS?
-
Eddie você poderia postar um exemplo por que ainda estou começando em asp e não saco muito.
-
ok vou dar uma olhada qualquer coisa eu pedirei um help.
-
Pessoal, eu tenho um site aonde tem a parte de torpedos do site. Bom o que eu queria fazer é o seguinte quando o usuário entrasse no site e fosse em torpedos ele daria uma msg que era preciso ser cadastrado e caso ele estivesse logado essa msg não aparecia ele conseguia mandar o torpedo. exemplo: tem a página torpedo.asp se o usuário estiver logado e clicasse no link torpedos ele iria para torpedo.asp?=logado (aonde ele poderia mandar o torpedo,porque esta logado no site) caso ele ainda não se logou ele iria para a página torpedo.asp?=naologado (aonde aparecia um msg você tem que ser cadastrado para usar os torpedos ) espero que tenham entendido OBS.: o meu form aonde fica o login (username e senha) fica na página principal (index.asp)
-
Marli, eu já resolvi o meu problema,desculpe a todos por não ter aviasdo.Mais coloca o erro que esta dando para podermos tentar te ajudar.
-
Caicai eu mudei a conta de e-mail que iria receber que no caso era framos@ibmecrj.br,para uma outra conta de e-mail e erro ainda persiste. no caso seria dificil eu modificar a conta de envio de e-mails por que aquela é umas das contas que eu tenho de e-mail,a outra é do ig e o ig não possui SMTP ou não disponibilza só da para mandar pelo webmail. você poderia me ajudar,você tem alguma conta que eu pudesse testar?
-
"select top 10 * from tabela order by o campo que você quer ordenar desc" o desc significa decrescente,se você quiser em ordem crescente não coloque nada.
-
Amigo Caicai eu fiz a modificação do body como você falou,mais realmente eu percebi que o problema deve ser por eu não ter o aspemail na minha máquina local.O q eu fiz foi colocar no servidor aonde hospedo a minha página,e apareceu uma msg estranha que nunca tinha visto antes ,eu acho que não é mensagem de erro do código,mais.... a msg é: 554 : Recipient address rejected: Relay access denied você poderia dar uma olhada? o endereço é: http://www.fernando.pessoal.nom.br/teste/e...recuperando.htm testa com a conta de e-mail: framos@ibmecrj.br
-
cara quele era o erro mesmo agora esta dando erro na linha: Set Mail = Server.CreateObject("Persits.MailSender") abaixo segue o código todo para você poder ver aonde estou errando <html> <head> <title>teste</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% email = Request.Form("email") If email = "" Then mensagem = "Erro campo vazio" end if Set conn = Server.CreateObject("ADODB.Connection") strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/banco.mdb") conn.open strconn Set sen = Server.CreateObject("ADODB.Recordset") strsen = "Select * From usuario where email = '"& email &"'" sen.open strsen, conn If not sen.EOF then nome = sen("nome") senha = sen("senha") usuario = sen("usuario") email = sen("email") Set Mail = Server.CreateObject("Persits.MailSender") 'Servidor de Envio de Mensagens Mail.Host = "smtp.rio.terra.com.br" 'Quem envia a mensagem Mail.From = "firmino.figueira@terra.com.br" Mail.FromName = "Fernando"' 'Quem irá receber a mensagem Mail.AddAddress sen("email"), sen("nome") 'Assunto da Mensagem Mail.Subject = "Recuperação de Senha" 'Corpo da Mensagem Mail.IsHTML = True Mail.Body = "<html><body topmargin='0' leftmargin='0'>" & body & "</body></html>" 'Verifica se ouve erro On Error Resume Next ' catch errors 'Enviando a Mensagem Mail.Send 'Pega o erro mostra sua descrisão If Err <> 0 Then erro = 1 mensagem = Err.Description else mensagem = "E-mail enviado com Sucesso." End If Else sen.close Set sen = Nothing mensagem = "E-Mail não Cadastrado" End If Response.Write mensagem %> <% body = "<font color=""#ff0000"">"& senha %> </body> </html>
-
car eu tentei usar o seu exemplo e deu erro na seguinte linha: sen.open strsen, conn aonde que eu poderia estar errando? eu criei um banco de dados access com os mesmos dados do seu exemplo,na mesma ordem,tudo certinho. o formulário envia perfeitamente para o banco mais eu to tendo problemas nessa linha. eu apenas mudei essa linha strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../banco.mdb") para strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("banco.mdb") por que a página esta no mesmo diretório.
-
Pessoal abaixo segue um formulário que eu queria enviar para um e-mail mais não sei como,alguém poderia me ajudar? <form name="cadastro" method="post" action="" onSubmit="return validate()"> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><div align="center"><font color="#FFFFFF" size="1" face="Verdana">Preencha o formulário abaixo para entrar em contato. </font></div></td> </tr> <tr> <td> </td> </tr> </table> <table width="500" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="59"><font color="#FFFFFF" size="1" face="Verdana">Nome:</font></td> <td colspan="3"><input name="nome" type="text" class="topo" id="nome"></td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana">Endereço:</font></td> <td colspan="3"><input name="endereco" type="text" class="topo" id="endereco"></td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana">Bairro:</font></td> <td width="161"><input name="bairro" type="text" class="topo" id="bairro"></td> <td width="41"><font color="#FFFFFF" size="1" face="Verdana">Cep:</font></td> <td width="239"><input name="cep" type="text" class="topo" id="cep" value="00000 - 000" maxlength="8"></td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana">Cidade:</font></td> <td><input name="cidade" type="text" class="topo" id="cidade"></td> <td><font color="#FFFFFF" size="1" face="Verdana">Estado:</font></td> <td><input name="estado" type="text" class="topo" id="estado" value="RJ" size="5"></td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana">Telefones:</font></td> <td colspan="3"><input name="telefones" type="text" class="topo" id="telefones"></td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana">E-mail:</font></td> <td colspan="3"><input name="email" type="text" class="topo" id="email" value="email@email.com.br"></td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana">Pacote:</font></td> <td colspan="3"><select name="pacotes" class="caixa" id="pacotes"> <option>Básica</option> <option>Completa</option> <option>Super</option> <option>Personalizada</option> </select></td> </tr> <tr> <td height="27"><font color="#FFFFFF" size="1" face="Verdana">Temas:</font></td> <td colspan="3"><select name="temas" class="caixa" id="temas"> <option>Teste</option> </select></td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana">Mensagem:</font></td> <td colspan="3"><textarea name="mensagem" cols="40" rows="5" id="mensagem" style="BORDER-RIGHT: #666666 1px solid;BORDER-TOP: #666666 1px solid; FONT-SIZE: 10px; BORDER-LEFT: #666666 1px solid;COLOR: #666666; FONT-FAMILY: Verdana; BACKGROUND-COLOR: #F0F0F0; BORDER-BOTTOM: #666666 1px solid"></textarea> </td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana"> </font></td> <td colspan="3"> </td> </tr> <tr> <td><font color="#FFFFFF" size="1" face="Verdana"> </font></td> <td colspan="3"><div align="center"> <input name="enviar" type="submit" class="bot" id="enviar" value="Enviar"> </div></td> </tr> </table> </form> obrigado desde já
-
você não tem o código ai não que talvez você poderia postar novamente?
-
Pessoal, alguém que puder me ajudar nisso eu agradeço,mais se não houver em portugues por favor me indiquem um que seja facil de configurar.
-
Pessoal alguém conhece algum sistema de upload em portugues?
-
Obrigado eddie funcionou perfeitamente!!
-
Cara muito obrigado pelo seu código mais não funcionou não. e mais uma coisa seu conhecimento em asp é 10 mais sua educação é 0. nesse fórum tem muita gente que esta começando em asp que nem eu e se as pessoas não tiverem paciencia uma com as outras fica dificil. mais uma vez obrigado. pessoal se alguém tiver paciencia de me ajudar eu poderia passar por e-mail o código ai vocês dão uma olhadinha.
-
Ricardo o código que você colocou é para listar os dez ultimos,isso já possui na página o que eu preciso é colocar na página quantos usuários existe no banco de dados,para ficar assim: Usuários cadastrados até hoje : 1000(exemplo) usuários cadastrados ate hoje
-
Obrigado amigo eu sei disso,mais o que eu quero é colocar o numero de registros no site entendeu? galera espero ajuda de alguém!!!
-
Pessoal, eu testei e não funcinou o problema deve ser porque nessa mesma página já tem o sql dos dez ultimos usuarios cadastrados,será isso? abixo segue o código para quem puder me ajudar <% path = server.mappath("db/usuarios.mdb") set conn = server.createobject("adodb.connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Persist Security Info=False" sqlusuarios = "select top 10 * from usuarios order by ID desc" set rsusuarios = conn.execute(sqlusuarios) %> att
-
você poderia postar um exemplo?
-
è bem simples basta apenas você criar uma tabela no dreamweaver de tamanho 780 pixels e colocar ela alinhada ao centro depois é só colocar o conteudo todo do site dentro dessa tabela. Assim em 800 x 600 vai ficar centralizado normalmente e quando for 1024x768 a tabela ira centralizar logo o site tb. espero que tenha entendido