Tiago Celestino .blog - Distribuindo o que vier à cabeça

gif falsa pra o IECA6

Assine RSS

Acompanhe as atualizações do blog assinando o feed.

Pesquise

Faça uma pesquisa e encontre tudo que já foi publicado no blog

Faça sua busca

Eu Apoio

  • Diga não ao Projeto do Senador Azeredo!

Flickr Fotos

  • Rafael Porto e Eu
  • Fernando, Eu, Alex Leão e Rafael Porto
  • Fernando, Eu, Alex e Karen Suellen
  • Yoooo
  • Eu
  • Cybershot

Twitter

Publicado em: 18 novembro 2007

Formmail ASP/CDONTS


O formmail em PHP que postei algum tempo atrás fez sucesso que alguns pediram um exemplo utilizando o ASP.

O programador/webmaster Adalberto Pita, do Leão da Barra, me passou o script em ASP utlizando o CDONTS que realiza a mesma proeza.

form.asp

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<title>Formulário de Contato</title>
</head>
<body>
<form action="envia.asp" method="post" id="contato" name="contato">
  <fieldset>
  <legend>Preencha o formulário</legend>
  <p>
    <label for="nome">Nome:</label>
    <input type="text" name="nome" id="nome" />
  </p>
  <p>
    <label for="email">Email:</label>
    <input type="text" name="email" id="email" />
  </p>
  <p>
    <label for="tel">Telefone:</label>
    <input type="text" name="tel" id="tel" />
  </p>
  <p>
    <label for="msg">Mensagem:</label>
    <br />
    <textarea id="msg" name="msg"></textarea>
  </p>
  <p>
    <button type="submit" name="enviar" id="enviar">Enviar</button></p>
  </fieldset>
</form>
</body>
</html>

envia.asp

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
<%
 
nome = Request.Form("nome")
email = Request.Form("email")
telefone = Request.Form("tel")
mensagem = Request.Form("msg")
 
conteudo = "NOME: "& nome&"<BR>E-MAIL: "& email &"<BR>TELEFONE: "& telefone &"<BR>MENSAGEM: "& mensagem
 
Set EnvioEmail = Server.CreateObject("CDONTS.NewMail")   
EnvioEmail.From = nome & "(" & email & ")"
EnvioEmail.To = "email@gmail.com"
EnvioEmail.Bcc = "copiaoculta@gmail.com"
EnvioEmail.Cc = "copia@gmail.com"
EnvioEmail.BodyFormat = 0
EnvioEmail.MailFormat = 0
EnvioEmail.Subject = "[CONTATO]"
EnvioEmail.Body = conteudo
EnvioEmail.Send   
Set EnvioEmail = Nothing
 
Response.Redirect("sucesso.asp")
 
%>

sucesso.asp

1
2
3
4
5
6
7
8
9
10
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2" />
<title>Formulário de Contato</title>
</head>
<body>
<p>Seus dados foram enviados com sucesso</p>
</body>
</html>

Bom começo de semana para todos e vamos todos voltar a velha rotina.:P

Ah! Já ia esquecendo. Para quem for fazer UFBA amanhã, BOA SORTE!

Categorias: Tutoriais | Tags:

Artigos Relacionados

Artigo tem 11 Comentários

Comentário feito em novembro 18th, 2007 10:40 pm

JulixResponder este comentário comentou:

Então é assim que envia e-mail pelo ASP!

Como é bom entender essas linhas, esse módulo de web do curso deu resultados, há 6 meses eu não entenderia patavina.

Bom inicio de semana Celestino.

Usando Mozilla Firefox Mozilla Firefox 2.0.0.9 no Windows Windows Vista

Comentário feito em novembro 19th, 2007 5:20 am

cileneResponder este comentário comentou:

Nao entendi nada..sou anal.. nesse assunto

Usando Mozilla Firefox Mozilla Firefox 2.0.0.9 no Windows Windows XP

Comentário feito em novembro 19th, 2007 7:21 pm

Tiago CelestinoResponder este comentário comentou:

Julix,
é simples! Ainda preciso achar um exemplo utilizando o ASPmail, que ainda não consegui.

Cilene,
ai é só copiar e colar. Dar uma modificada e já era! :P
Abraços

Usando Mozilla Firefox Mozilla Firefox 2.0.0.9 no Windows Windows XP

Comentário feito em janeiro 18th, 2008 11:14 am

Ted k'Responder este comentário comentou:

Ótimo man, agora só falta colocar um com anexo, (hehe)!!

Usando Mozilla Firefox Mozilla Firefox 2.0.0.11 no Windows Windows XP

Comentário feito em janeiro 19th, 2008 9:42 pm

Tiago CelestinoResponder este comentário comentou:

Valeu Ted K’. Como não tenho banda ilimitada, vou ver se na próxima jogo em um servidor desse grátis. :D

Usando Mozilla Firefox Mozilla Firefox 2.0.0.11 no Windows Windows XP

Comentário feito em fevereiro 21st, 2008 4:34 pm

JohnResponder este comentário comentou:

Cara, valeu mesmo!! Há tempos estava procurando um código que funcionasse. Simples e funcionando. Demais! Até

Usando Mozilla Firefox Mozilla Firefox 2.0.0.12 no Windows Windows XP

Comentário feito em fevereiro 21st, 2008 7:45 pm

Tiago CelestinoResponder este comentário comentou:

Por nada Jonh. Precisar estamos por aqui.

Usando Mozilla Firefox Mozilla Firefox 2.0.0.12 no Windows Windows XP

Comentário feito em maio 6th, 2008 4:28 pm

ValteiltonResponder este comentário comentou:

Oi colei tudo ate ai tudo certo, mas quando mando enviar o e mail da um erro eu eu não sei como acertar

o erro é esse

Warning: Cannot modify header information - headers already sent by (output started at C:\Inetpub\vhosts\mocidadegoiatuba.com\httpdocs\envia.php:8) in C:\Inetpub\vhosts\mocidadegoiatuba.com\httpdocs\envia.php on line 32

se puder me ajudar agradeço muito

e mail valteiltonpbgo@hotmail.com

Usando Mozilla Firefox Mozilla Firefox 2.0.0.14 no Windows Windows XP

Comentário feito em maio 7th, 2008 9:26 am

Tiago CelestinoResponder este comentário comentou:

Nesse caso @Valteilton, vc colocou a extensão do arquivo errado. Tem quer ser envia.asp.

Usando Mozilla Firefox Mozilla Firefox 2.0.0.14 no Windows Windows XP

Comentário feito em agosto 1st, 2008 4:17 pm

LucazResponder este comentário comentou:

no emu deu o seguinte erro:

Server object error ‘ASP 0177 : 800401f3′

Server.CreateObject Failed

/envia.asp, line 19

800401f3

Usando Mozilla Firefox Mozilla Firefox 3.0.1 no Windows Windows XP

Comentário feito em agosto 19th, 2008 4:07 pm

Arlindo CoutoResponder este comentário comentou:

Obrigado por esse tópico foi de muita precisão.

Estava mim matando para fazer esse formulário

Usando Internet Explorer Internet Explorer 7.0 no Windows Windows XP

Deixe o seu comentário

Deixe aqui a sua opinião sobre o artigo

(Obrigatório)

não é publicado

(Obrigatório)

(opcional)

gif falsa pra o IECA6

XHTML e CSS com autoria de Tiago Celestino - Usando o WordPress 2.6

Esta obra está licenciada sob uma Licença Creative Commons.

Creative Commons License