<% @ LANGUAGE="VBSCRIPT" %> <% '******************************************************************* ' P '******************************************************************* 'Email para onde ser?o enviados os dados do formul?rio email_form = "marcelo@caelmo.com.br" 'T?tulo do email assunto_form = "Email recebido atrav?s do site oficial de Caelmo" 'Servidor de email servidor = "smtp.hostlocation.com.br" 'Componente para envio do email: CDONTS | AspMail | AspEmail | AspQmail componente = "AspEmail" 'Cabe?alho do texto do email recebido cabecalho_email = "Dados do Usu?rio" '******************************************************************* %> Caelmo - Instalacoes Eletricas – Residencial, Comercial, Industrial e Rural
<% If Not IsEmpty(Request.Form) Then strMsg = "" strMsg = strMsg & "" strMsg = strMsg & "" strMsg = strMsg & "" strMsg = strMsg & "" & cabecalho_email & "

" strMsg = strMsg & "Nome

" & Trim(Request.Form("Campo1")) & "
" strMsg = strMsg & "E-mail

" & Trim(Request.Form("Campo2")) & "
" strMsg = strMsg & "Assunto

" & Trim(Request.Form("Campo3")) & "
" strMsg = strMsg & "Mensagem

" & Trim(Request.Form("Campo4")) & "
" strMsg = strMsg & "
" strMsg = strMsg & "" EnviaEmail servidor, componente, email_form, email_form, email_form, assunto_form, strMsg Function EnviaEmail(Host,Componente,Email,NomeEmail,ParaEmail,Assunto,Mensagem) Select Case Componente Case "AspMail" on error resume next Set eObjMail = Server.CreateObject("SMTPsvg.Mailer") eObjMail.FromName = NomeEmail eObjMail.FromAddress = Email eObjMail.RemoteHost = Host eObjMail.AddRecipient "", ParaEmail eObjMail.Subject = Assunto eObjMail.ContentType = "text/html" eObjMail.BodyText = Mensagem eObjMail.SendMail Set eObjMail = nothing Case "AspEmail" on error resume next Set eObjMail = Server.CreateObject("Persits.MailSender") eObjMail.Host = Host eObjMail.From = Email eObjMail.FromName = NomeEmail eObjMail.AddReplyTo Email eObjMail.AddAddress ParaEmail eObjMail.Subject = Assunto eObjMail.isHTML = true eObjMail.Body = Mensagem eObjMail.Send Set eObjMail = nothing Case "AspQmail" on error resume next Set eObjMail = Server.CreateObject("SMTPsvg.Mailer") eObjMail.QMessage = 1 eObjMail.FromName = NomeEmail eObjMail.FromAddress = Email eObjMail.RemoteHost = Host eObjMail.AddRecipient "", ParaEmail eObjMail.Subject = Assunto eObjMail.BodyText = Mensagem objNewMail.SendMail Set eObjMail = nothing Case "CDONTS" on error resume next Set eObjMail = Server.CreateObject("CDONTS.NewMail") eObjMail.to = ParaEmail eObjMail.from = NomeEmail & "<" & Email & ">" eObjMail.subject = Assunto eObjMail.Importance = 1 eObjMail.BodyFormat = 0 eObjMail.MailFormat = 0 eObjMail.body = Mensagem eObjMail.send Set eObjMail = nothing End Select End Function %> Mensagem enviada
Obrigado por sua mensagem!

Ir para Pаgina Inicial <% Else %>
Untitled Document - Saved from Web Wiz Rich Text Editor(TM) ver. 4.04

Nossa Central de
Antendimento online

Afim de tornar o ambiente "frio" de internet em algo mais humano,
Disponibilizamos uma Central de Atendimento, onde você poderá entrar em contato, tirar suas dúvidas, solicitar orçamentos e até mesmo fazer suas críticas ou reclamações.

Todo o sistema é monitorado e gravado para garantir excelência em nossos atendimentos.

Mesmo que nossos atendentes não estejam disponíveis no momento, um e-mail poderá ser
encaminhado à nossa direção, a qual direcionará o mesmo ao pessoal pertinente.

Central de Atendimento
A qualidade de servicos começa com um bom atendimento. Por isso abrimos esse canal para lhe proporcionar diversos modos de fazer suas solicitacoes, reclamaçoes e tirar suas duvidas. 

Enviar Mensagem

Preencha os campos abaixo:

" onSubmit="return verifica_form(this);">
Nome
E-mail
Assunto
Mensagem
Endereço:
Rua Riachuelo Nº 145, Centro
Cidade:
Mococa
Estado:
São Paulo
CEP 13730-070
Endereço eletrônico:
caelmo@caelmo.com.br
Fone/Fax: (19) 36561401

Untitled Document - Saved from Web Wiz Rich Text Editor(TM) ver. 4.04

SÓ CONSTRÓI
Construções e Terraplanagem

O grupo CAELMO possui uma empresa que tem suas atividades voltadas para a construção civil.

Realizamos todos os serviços relacionados a construção civil, manutenção predial, pintura, manutenção e conservação de estradas, terraplanagens, aterros, etc.

fones

©2009 Caelmo. Todos os direitos reservados -Desenvolvimento Agência Desiggn - Uma produtora de ideias
<% End If %>