<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'Pega os valores do formulario var_nome = Request("nome") var_email = Request("email") var_telefone = Request("telefone") var_assunto = Request("assunto") var_mensagem = Replace(Request("mensagem"),vbcrlf,"
") 'Se os campos tiverem algum conteudo, escreve o email if var_nome <> "" then email_contato = "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "
" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "" email_contato = email_contato & "
 Data/Hora: "&Now()&"
 Nome: "&var_nome&"
 E-mail: "&var_email&"
 Telefone: "&var_telefone&"
 Assunto: "&var_assunto&"
 Mensagem: "&var_mensagem&"
" email_contato = email_contato & "" 'Manda o email para o endereco definido Set email = Server.CreateObject("CDONTS.NewMail") email.From = var_nome & "<"&var_email&">" email.To = "lanparknews@lanparknews.com.br" email.Subject = "Contato através do site " email.BodyFormat = 0 email.MailFormat = 0 email.Body = email_contato email.Send Set email = Nothing end if %> LanPark News

            FALE CONOSCO
          
<% if var_nome <> "" then %>
Seus dados foram enviados com sucesso!
<%end if%>
  Nome:
  E-mail:
  Telefone:
  Assunto:
  Mensagem:
   

 

 

 

 

Av. Tancredo Neves - Park Shopping Sorriso
 
Fone: (66) 3544-6900