|
A CreativeHost disponibiliza um modelo de formulário ASP para seu site. O formulário utiliza o componente AspMail.
Para utilizar o FormAsp, é necessário criar dois arquivos. O primeiro arquivo é responsável por receber as informações e "chamar" os códigos ASP para o envio do formulário. O segundo receberá as informações preenchidas para envia-las ao e-mail do destinatário.
O FormAsp* já está ativo em todas as contas Windows/SQL, para utilizá-lo, siga os passos abaixo :
1. Copie abaixo os códigos <--Início formasp.asp--> e salve com o nome desejado para o formulário (ex: formasp.asp). Esse será o primeiro arquivo.
2. Copie os códigos <--Início enviaemail.asp--> e salve com o nome "enviaemail.asp". Esse será o segundo arquivo.
Para o funcionamento correto do script, em <-Início enviaemail.asp->, altere apenas os campos abaixo:
Na linha Mailer.RemoteHost = "smtp.dominio.com.br" substitua
a parte "dominio.com.br" pelo nome correspondente ao de seu
domínio.
Na linha Mailer.AddRecipient "Formulário" , "dominio@dominio.com.br", substitua
pelo endereço de e-mail que
receberá os dados do formulário.
Na linha Response.redirect "http://www.dominio.com.br/",
preencha com a URL que deve ser apresentada após o envio do
formulário.
Escolha um diretório de sua preferência e faça o upload dos arquivos no mesmo diretório (dentro do www).
Copie os códigos aqui:
<--Início formasp.asp--> (não copie essa linha)
<title>CREATIVEHOST - Exemplo Formulário ASP</title>
<form action="enviaemail.asp" method="POST">
<div align="left"> <font size="2" face="Arial"> Nome:
<input type="text" size="50" maxlength="50" name="nome">
<br> E-mail:
<input type="text" size="50" maxlength="50" name="email">
<br>
Mensagem: <br>
<textarea name="mensagem" rows="5" cols="50"></textarea>
<br>
</font>
<input type="submit" value="Enviar">
</div>
</form>
<p align="right"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Formulário de Contato by <br>
<img src="http://www.creativehost.com.br/images/ch_selo.gif" width="94" height="15" border="0"> - <a href="http://www.creativehost.com.br">Hospedagem de Sites </a></font></p>
</body>
</html>
<--Fim formasp.asp--> (não copie essa linha)
<--Início enviaemail.asp--> (não copie essa linha)
<%
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = request("nome")
Mailer.FromAddress = request("email")
Mailer.RemoteHost = "smtp.dominio.com.br"
Mailer.AddRecipient "Formulário" , "dominio@dominio.com.br"
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.dominio.com.br/obrigado.asp"
else
Response.Write mailer.response
end if
%>
<--Fim enviaemail.asp--> (não copie essa linha)
* Por se tratar de programação ASP, não ofereceremos suporte se os códigos do exemplo forem alterados para inclusões de campos adicionais ou demais alterações
|