SH Forum
Registre-se em nosso fórum!

Participe do fórum, é rápido e fácil

SH Forum
Registre-se em nosso fórum!
SH Forum
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Formulario contato

Ir para baixo

Formulario contato Empty Formulario contato

Mensagem  Eu Posto Seg maio 16, 2011 1:33 pm

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
Eu Posto
Eu Posto

Mensagens : 210
Moedas : 690
Reputação : 16
Data de inscrição : 09/05/2011
Idade : 34

http://serverhabbo.com/

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos