Formulario contato
SH Forum :: Design e Web Design :: Programação :: ASP :: Tutoriais e Vídeo Aulas
Página 1 de 1
Formulario contato
- Código:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Formulário</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<!-- > Ola pessoal... esse é um formulário simples em asp
1. Copie abaixo os códigos e salve com o nome desejado para o formulário (ex: contato.asp).
Esse será o primeiro arquivo.
Note que em form action esta escrito "enviaemail.asp" esse será o script que verifica e envia o seu formulario.
-->
<form action="enviaemail.asp" method="POST" class="form">
<p><br>
Nome:<br>
<input type="text" name="nome" size="24">
<br>
E-Mail:<br>
<input type="text" name="email" size="24">
</p>
<p><br>
Mensagem:<br>
<textarea name="mensagem" rows="6" cols="40"></textarea>
;<br>
<input type="submit" name="Submit" value="Enviar">
<input type="submit" name="Submit2" value="Limpar">
<br>
</p>
</form>
</body>
</html>
Segunda parte do formulario, pegue um arquivo em branco e Copie os códigos abaixo
e salve com o nome "enviaemail.asp". Esse será o segundo arquivo.
Para o funcionamento correto do script, altere apenas os campos abaixo:
Na linha Mailer.RemoteHost = "smtp.seudominio.com.br" substitua a parte "seudominio.com.br" pelo nome correspondente ao de seu domínio.
Na linha Mailer.AddRecipient "Formulário" , "seudominio@seudominio.com.br", substitua pelo endereço de e-mail que receberá os dados do formulário.
Na linha Response.redirect "http://www.seudominio.com.br/", preencha com a URL que deve ser apresentada após o envio do formulário.
Exemplo: pegue um arquivo em branco, escreva um texto de agredecimento e salve com o nome obrigado.asp
faça o upload dos arquivos no mesmo diretório (dentro do www).
- Código:
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.seudominio.com.br"
Mailer.AddRecipient "Formulário" , "seudominio@seudominio.com"
Mailer.Subject = "Formulário"
Mailer.BodyText = "Nome........... " & request.form("nome") & vbcrlf
Mailer.BodyText = "E-mail......... " & request.form("email") & vbcrlf
Mailer.BodyText = "Mensagem........ " & request.form("mensagem") & vbcrlf
if Mailer.SendMail then
Response.redirect "http://www.seudominio.com.br/obrigado.asp"
else
Response.Write mailer.response
end if
%>
jose cavazoni
SH Forum :: Design e Web Design :: Programação :: ASP :: Tutoriais e Vídeo Aulas
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos