Lexxa - Formulário ASP

Home

Registre seu Domínio

Sites

	Configurações

	Speedy

	Telefones da Internet Discada

	Discadores

	Internet Ilimitada

	Outlook Express

	Microsoft Outlook

	Dial-UP no Windows Vista

	FAQ's Discado

	FAQ's Emails

	Downloads

	Contador

	Formulário ASP

	Formulário CFM

	Formulário PHP

Formulário ASP

Documentação Formulário Padrão ASP

- Código Principal do formulário:
Este código coleta os dados para o formulário e aciona o segundo arquivo (envia_email.asp) para envio do form:
Basta copiar o código, adaptar as necessidades e salvar como index.asp, por exemplo.

<% Response.Charset="ISO-8859-1" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
<title>Formpadrao</title>
</head>

<body>
     <table border="0" cellpadding="0" cellspacing="0" width="100%" id="table11">
<tr>
  <form method="POST" action="envia_email.asp">
  <td>
  <font face="Arial" size="2" color="#808080">
  Nome:<br>
  <input type="text" name="nome" size="31"><br>
  Email:<br>
  <input type="text" name="email" size="31"><br>
  Mensagem:<br>
  <textarea rows="2" name="mensagem" cols="24"></textarea><br>
  <br>
  <input type="submit" value="Enviar" name="acao"></font></td>
  <input type="hidden" name="destinatario" value="email@dominio.com.br">
  </form>
</tr>
      </table>
   </body>
   </html>

- Código secundário do formulário:
Copiar o código, adaptar as necessidades e salvar como envia_email.asp

<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message")

Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.lexxa.com.br"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login_email"

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon

objCDOSYSMail.From = "email@dominio.com.br"

objCDOSYSMail.To = request.form("destinatario")

objCDOSYSMail.Subject = "Contato via website"

objCDOSYSMail.TextBody = "Nome: " & request.form("nome") & chr(10) & "E-mail:" & request.form("email") & chr(10) & "Mensagem:" & request.form("mensagem")

objCDOSYSMail.Send

Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

Response.Write("<script language=Javascript>")
Response.Write("javascript:alert('Contato enviado com sucesso. Obrigado!')" & "</script>")
Response.Write("<script language=Javascript>")
Response.Write("javascript:history.back()" & "</script>")
%>

Sites    e-Commerce     Divulgar Site    Otimizar Site    Hospedagem    Speedy    Mailmarketing    Newsletter    Email    Discado