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.htm Falow galera, usem e abusem desse código, ok........ Um abração
