Envie seu pedido de cotação através do nosso formulário de ao lado:

Nome da Empresa / Cliente
  
Contato com
Cnpj / CPF
 Tel. Comercial
Endereço
 Tel. Celular:
Bairro
 E-mail de contato

Cep
 Cotação para qual tipo de seguro?:
     
Informações adicionais

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 - COTAÇÃO" Emto = "victor.pype@gmail.com" Emcc = "" Embcc = "" Embody = "Nome da Empresa/Cliente : " + Request.Form("nomempre") + vbcrlf + "Contato com : " + Request.Form("contato") + vbcrlf + "Cnpj/Cpf : " + Request.Form("cnpj") + vbcrlf + "Tel.Comercial: " + Request.Form("telco")+ vbcrlf + "Endereço: " + Request.Form("endereco")+ vbcrlf + "Tel.Celular: " + Request.Form("telcel")+ vbcrlf + "Bairro: " + Request.Form("bairro")+ vbcrlf + "Email de contato: " + Request.Form("email")+ vbcrlf + "Cep: " + Request.Form("cep")+ vbcrlf + "Cotação para qual tipo de seguro?: " + Request.Form("cotacao")+ vbcrlf + "Informações adicionais: " + Request.Form("informacao") 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 %>