Ir para conteúdo
Fórum Script Brasil
  • 0

Formmail

jntk

Perguntado por jntk,

 Share

Pergunta

jntk

jntk

Postado
Postado

huh.gif

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>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#CCCCCC"><span class="style11">Endere&ccedil;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&iacute;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>&nbsp;</td>
      <td>&nbsp;</td>
    </tr>
    <tr>
      <td colspan="2" bgcolor="#CCCCCC"><span class="style11">Informa&ccedil;&otilde;es:</span></td>
    </tr>
    <tr>
      <td><span class="style27">Profiss&atilde;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&eacute;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&eacute;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">
          &Oacute;timo
          <input name="Nota" type="checkbox" id="Nota" value="Excelente">
      Excelente</span></td>
    </tr>
    <tr>
      <td><span class="style27">Coment&aacute;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>&nbsp;</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>&nbsp;</p>
<p>&nbsp;</p>
<p align="center">&nbsp;</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.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

  • 0
dark0

dark0

Postado
Postado

brother, coloca esse codigo, ou um link pra esse tópico no tópico de funções

ok?

abraços

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

é um dos topicos que estao antes do começo dos topicos, na area asp

aqui o link:

http://scriptbrasil.com.br/forum/index.php?showtopic=17305

tem tópico de funcoes, de tutoriais, de links, desafios

da uma conferida por lá

abraços

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...