CONTATO

Stellium Design & Eventos
Telefax: 55 (27) 3216 7677 / 8151 2539
e-mail: claudiafusatto@terra.com.br

ENVIE UMA MENSAGEM
<%if request.Form("Submit")<>"" then '/* Destinatário */ para = "" max=99999999 min=10 pedido = Int((max-min+1)*Rnd+min) '/* Assunto */ 'subject = request(subject) '/* Mensagem */ mensagem = "" mensagem = "" mensagem = mensagem &"Contato" mensagem = mensagem &"Mensagem Enviada pelo site
" mensagem = mensagem &"
" mensagem = mensagem &"NOME: "&request.Form("nome")&"
" mensagem = mensagem &"Tel:"&request.Form("tel")&"
" mensagem = mensagem &"Celular:"&request.Form("tel2")&"
" mensagem = mensagem &"Email: "&request.Form("email")&"
" mensagem = mensagem &"Assunto: "&request.Form("assunto")&"
" mensagem = mensagem &"Mensagem: "&request.Form("msg")&"
" mensagem = mensagem &"" mensagem = mensagem &"" 'headers = "MIME-Version: 1.0\n" 'headers .= "Content-type: text/html; charset=iso-8859-1\n" 'headers .= "From: Site \n"; 'headers .= "Return-Path: \n"; ' Enviando a mensagem Set Mailer = CreateObject("CDONTS.NewMail") Mailer.From = "claudiafusatto@terra.com.br" ' e-mail de quem esta enviando a mensagem Mailer.To = "claudiafusatto@terra.com.br" ' e-mail de quem vai receber a mensagem 'Mailer.CC = "conta@destinatario.com.br" ' Com Cópia Mailer.BodyFormat = 0 ' parametro de formatação Mailer.MailFormat = 0 ' parametro de formatação 'Mailer.AttachFile "e:\home\login\dados\arquivo.txt" 'caso queira anexar algum arquivo ao seu e-mail Mailer.Subject = "Cadastro" Mailer.Body = mensagem Mailer.Send Set Mailer = Nothing %> Mensagem enviada com sucesso <% else %>
Nome:
Tel:
Cel:
E-mail:
Assunto:
Mensagem:

 
<% end if%>