Envie suas dúvidas e sugestões através de nosso formulário de contato ao lado:

Nome
Mensagem
Email
Telefone
 
Fone: (011) 3892-9827
Fax: (011) 5084-1270

Email:
saúde@sampaios.com.br
vida@sampaios.com.br
comercial@sampaios.com.br
<% if Request.Form("enviar") = "ok" then Dim Emfrom Dim Emsub Dim Emto Dim Emcc Dim Embcc Dim Embody Dim Emattach Emfrom = Request.Form("email") Emsub = "Sampaio’s Corretora de Seguro - CONTATO via web" Emto = "victor.pype@gmail.com" Emcc = "" Embcc = "" Embody = "Nome : " + Request.Form("nome") + vbcrlf + "Email : " + Request.Form("email") + vbcrlf + "Telefone : " + Request.Form("telefone") + vbcrlf + "Mensagem: " + Request.Form("mensagem") Emattach = "" Dim ObjCdo Set ObjCdo = Server.CreateObject("CDONTS.NewMail") ObjCdo.From = Emfrom ObjCdo.Subject = Emsub ObjCdo.To = Emto ObjCdo.cc = Emcc ObjCdo.bcc = Embcc ObjCdo.body = Embody ObjCdo.send Set ObjCdo = nothing response.write("") end if %>