jntk Postado Julho 15, 2004 Denunciar Share Postado Julho 15, 2004 Ae Galera, pra quem tem dúvidas e/ou precisa de um formmail ta ae a solução.Tem esse form.mail com duas páginas, uma em html com o formulário e a outra em asp que recebe os dados do formulário e envia por e-mail. Esse funciona realmente, não são iguais os da net que nunca funcionam...rsrs.Espero que os moderadores considerem esse um tópico importante, certo?primeira página:cadastro.htm<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <style type="text/css"> <!-- .style8 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #0066CC; } .style11 { font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #0066CC; font-weight: bold; font-style: italic; } .style14 { font-family: Arial, Helvetica, sans-serif; font-size: 18px; color: #0066CC; } .style27 {font-family: Arial, Helvetica, sans-serif; font-size: 12px; color: #666666; } .style28 {font-family: Arial, Helvetica, sans-serif} a:link { color: #666666; text-decoration: none; } a:hover { color: #0066CC; text-decoration: underline; } a:visited { text-decoration: none; } a:active { text-decoration: none; } --> </style> </head> <body> <p align="center" class="style14">Cadastro</p> <form name="form1" method="post" action="cadastro2.asp"> <table border="0" align="center" cellpadding="0" cellspacing="0" id="table"> <tr> <td colspan="2" bgcolor="#CCCCCC"><span class="style11">Dados Pessoais:</span></td> </tr> <tr> <td><span class="style27">Nome:</span></td> <td> <input name="Nome" type="text" id="Nome" size="50" maxlength="100" style="font-family: Arial; font-size: 12 pt; color: #808080"></td> </tr> <tr> <td><span class="style27">Sexo:</span></td> <td><span class="style27"> <input name="Sexo" type="checkbox" id="Sexo" value="Masculino" style="font-family: Arial; font-size: 12 pt; color: #0066CC"> Masculino <input name="Sexo" type="checkbox" id="Sexo" value="Feminino" style="font-size: 12 pt; font-family: Arial; color: #0066CC"> Feminino </span></td> </tr> <tr> <td><span class="style27">Dt Nasc.:</span></td> <td><span class="style27"> <input name="Nascimento" type="text" id="Nascimento" size="10" maxlength="10" style="color: #808080; font-family: Arial; font-size: 12 pt"> Formato: (dd/mm/aaaa) </span></td> </tr> <tr> <td><span class="style27">E-maill: </span></td> <td> <input name="Email" type="text" id="Email" size="50" maxlength="100" style="font-size: 12 pt; font-family: Arial; color: #808080"> </td> </tr> <tr> <td> </td> <td> </td> </tr> <tr> <td colspan="2" bgcolor="#CCCCCC"><span class="style11">Endereço:</span></td> </tr> <tr> <td><span class="style27">R./Av.:</span></td> <td> <input name="Rua" type="text" id="Rua" size="50" maxlength="100" style="font-family: Arial; font-size: 12 pt; color: #808080"></td> </tr> <tr> <td><span class="style27">Bairro:</span></td> <td> <input name="Bairro" type="text" id="Bairro" size="50" maxlength="100" style="color: #808080; font-family: Arial; font-size: 12 pt"></td> </tr> <tr> <td><span class="style27">Cidade:</span></td> <td> <input name="Cidade" type="text" id="Cidade" size="50" maxlength="100" style="color: #808080; font-family: Arial; font-size: 12 pt"></td> </tr> <tr> <td><span class="style27">Estado:</span></td> <td> <input name="Estado" type="text" id="Estado" size="50" maxlength="100" style="color: #808080; font-family: Arial; font-size: 12 pt"></td> </tr> <tr> <td><span class="style27">País:</span></td> <td> <input name="Pais" type="text" id="Pais" size="50" maxlength="100" style="font-size: 12 pt; font-family: Arial; color: #808080"></td> </tr> <tr> <td><span class="style27">CEP:</span></td> <td> <input name="Cep" type="text" id="Cep" size="9" maxlength="9" style="font-family: Arial; font-size: 12 pt; color: #808080"> <span class="style27">Formato: (xxxx-xxx)</span></td> </tr> <tr> <td><span class="style27">Fone:</span></td> <td> <input name="Fone" type="text" id="Fone" size="50" maxlength="100" style="color: #808080; font-family: Arial; font-size: 12 pt"></td> </tr> <tr> <td> </td> <td> </td> </tr> <tr> <td colspan="2" bgcolor="#CCCCCC"><span class="style11">Informações:</span></td> </tr> <tr> <td><span class="style27">Profissão:</span></td> <td> <input name="Profissao" type="text" id="Profissao" size="50" maxlength="100" style="color: #808080; font-family: Arial; font-size: 12 pt"></td> </tr> <tr> <td><span class="style27">Soube do site: </span></td> <td><span class="style27"> <select name="Soube" id="Soube" style="font-size: 12 pt; font-family: Arial; color: #808080"> <option>- - Selecione - -</option> <option value="Amigos">Através de Amigos</option> <option value="Igreja">Na Igreja</option> <option value="Busca">Em Sites de Busca</option> <option value="Propaganda">Em Propagandas</option> <option value="Sites">Em Outros sites</option> <option value="Outros">Outros</option> </select> </span></td> </tr> <tr> <td><span class="style27">Nota para o site: </span></td> <td><span class="style27"> <input name="Nota" type="checkbox" id="Nota" value="Pessimo"> Péssimo <input name="Nota" type="checkbox" id="Nota" value="Ruim"> Ruim <input name="Nota" type="checkbox" id="Nota" value="Regular"> Regular <input name="Nota" type="checkbox" id="Nota" value="Bom"> Bom <input name="Nota" type="checkbox" id="Nota" value="Otimo"> Ótimo <input name="Nota" type="checkbox" id="Nota" value="Excelente"> Excelente</span></td> </tr> <tr> <td><span class="style27">Comentários:</span></td> <td><span class="style27"> <textarea name="Comentarios" cols="50" rows="5" id="Comentarios" style="color: #808080; font-family: Arial; font-size: 12 pt"></textarea> </span></td> </tr> <tr> <td colspan="2"><div align="center" class="style8"> <input type="submit" name="Submit" value="Enviar"> <input type="reset" name="Submit2" value="Limpar"> </div></td> </tr> </table> </form> <p> </p> </body> </html> a segunda página: cadastro2.asp <% Option Explicit 'declarando as variáveis Dim varEmail, varPara, varAssunto, varTexto, Email, varNome Dim TIT, TEXTO, FIM Dim status varEmail = trim(Request.Form("email")) varPara = "ieq@ieqquitauna.com.br"'endereço de e-mail para onde deve oi o cadastro varAssunto = "Cadastro: " & Trim(Request.Form("Nome"))'assunto: Cadastro+Nome status="" 'verifica se o campo nome esta preenchido If trim(Request.Form("Nome")) ="" then %> <script language="JavaScript"> alert('\nCampo Nome em branco. \n \nFavor digitar Texto.') window.location.href = "javascript:history.go(-1)" </script> <% status="Falha" End IF 'verifica se o campo fone esta preenchido If trim(Request.Form("Fone")) ="" then %> <script language="JavaScript"> alert('\nCampo Fone em branco. \n \nFavor digitar Texto.') window.location.href = "javascript:history.go(-1)" </script> <% status="Falha" End IF 'você pode fazer verificações para todos os campos.... If status="" then 'Composição do Email que você vai receber com o que foi preenchido no form. TIT = "<p><b><font face=""Arial"" size=""2"">Nome: " & Request.Form("Nome") & "</font></b></p>" TIT = TIT & "<p><b><font face=""Arial"" size=""2"">E-mail: " & Request.Form("Email") & "</font></b></p>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Nome: </b>" & Request.Form("Nome") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Sexo: </b>" & Request.Form("Sexo") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Nascimento: </b>" & Request.Form("Nascimento") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>E-mail: </b>" & Request.Form("Email") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Rua: </b>" & Request.Form("Rua") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Bairro: </b>" & Request.Form("Bairro") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Cidade: </b>" & Request.Form("Cidade") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Estado: </b>" & Request.Form("Estado") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Pais: </b>" & Request.Form("Pais") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Cep: </b>" & Request.Form("Cep") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Fone: </b>" & Request.Form("Fone") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Profissao: </b>" & Request.Form("Profissao") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Como Soube: </b>" & Request.Form("Soube") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Nota: </b>" & Request.Form("Nota") & "<br>" TEXTO = TEXTO & "<font face=""Arial"" size=""2""><b>Comentarios: </b>" & Request.Form("Comentarios") & "<br><br>" 'rodapé do seu e-mail FIM ="<br><br><a href=""mailto:webmaster@ieqquitauna.com.br"">" & "Jônatas da Costa Soares" & "</a>" Set Email = Server.CreateObject("Persits.MailSender") Email.Host="mail.ieqquitauna.com.br"'host do seu servidor de e-mail Email.From = varEmail Email.ADDAddress varPara Email.Subject = varAssunto Email.ishtml=true Email.Body = TIT & TEXTO & FIM Email.Send On Error Resume Next Set Email = nothing If Err <> 0 Then Response.Write "Error encountered: " & Err.Description End If End If %> <p> </p> <p> </p> <p align="center"> </p> <p align="center"><b><font color="#FF9900" face="Arial" size="3">Cadastro Efetuado com Sucesso!</font></b></p>Ae Galera, qualquer dúvida postem, me perguntem, ok?É só configurar ele certinho que funciona, se quiserem ver ele funcionando antes de testarem acessem essa pg: http://www.ieqquitauna.com.br/paginas/cadastro.htmFalow galera, usem e abusem desse código, ok........Um abração Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Julho 16, 2004 Denunciar Share Postado Julho 16, 2004 brother, coloca esse codigo, ou um link pra esse tópico no tópico de funçõesok?abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 jntk Postado Julho 16, 2004 Autor Denunciar Share Postado Julho 16, 2004 brother, coloca esse codigo, ou um link pra esse tópico no tópico de funçõesok?abraços Onde fica isso?? (é q sou novo no fórum....rs)um abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 dark0 Postado Julho 16, 2004 Denunciar Share Postado Julho 16, 2004 é um dos topicos que estao antes do começo dos topicos, na area aspaqui o link:http://scriptbrasil.com.br/forum/index.php?showtopic=17305tem tópico de funcoes, de tutoriais, de links, desafiosda uma conferida por láabraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Dee Dee Frehley Postado Julho 8, 2005 Denunciar Share Postado Julho 8, 2005 Como eu faço para saber o host do meu servidor de e-mail...O meu é yahoo Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
jntk
Ae Galera, pra quem tem dúvidas e/ou precisa de um formmail ta ae a solução.
Tem esse form.mail com duas páginas, uma em html com o formulário e a outra em asp que recebe os dados do formulário e envia por e-mail.
Esse funciona realmente, não são iguais os da net que nunca funcionam...rsrs.
Espero que os moderadores considerem esse um tópico importante, certo?
primeira página:
cadastro.htm
a segunda página: cadastro2.aspAe Galera, qualquer dúvida postem, me perguntem, ok?
É só configurar ele certinho que funciona, se quiserem ver ele funcionando antes de testarem acessem essa pg: http://www.ieqquitauna.com.br/paginas/cadastro.htm
Falow galera, usem e abusem desse código, ok........
Um abração
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.