Fale Conosco

<% if request.form("enviado") = 1 then Sub SubEmail(SEDeQuem, SEParaQuem, SEComCopiaPara, SEComCopiaOculta, SEAssunto, SECorpoEmail) dim objCDOSYSMail, objCDOSYSCon, subemailr Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = request.ServerVariables("LOCAL_ADDR") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = SEDeQuem objCDOSYSMail.To = SEParaQuem objCDOSYSMail.Cc = SEComCopiaPara objCDOSYSMail.Bcc = SEComCopiaOculta objCDOSYSMail.Subject = SEAssunto objCDOSYSMail.HtmlBody = SECorpoEmail objCDOSYSMail.Send 'destrói os objetos Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing if err.number <> 0 then subemailr = "




Ocorreu o seguinte erro e sua mensagem não pode ser enviada :
"&err.number & "" & err.description else subemailr = "




Sua mensagem foi enviada com sucesso!
Obrigado" end if End Sub msg = "Nome: "&request.form("nome")&_ "
e-mail:"&request.form("email")&_ "
Assunto:"&request.form("assunto")&_ "
Mensagem:"&replace(request.form("Mensagem"),vbcrlf,"
") subemail "contato@borganengenharia.com.br", "borgan@borganengenharia.com.br", "", "", "Contato do site", msg response.write "

"&subemailr&"

" end if %>

« voltar para a página inicial





enviar mensagem »

Borges e Andrade Engenharia e Construções Ltda
Rua Afonso Restivo nº148
CEP: 38060-520 - Uberaba - MG
Fone:(34) 33217562