<% Const cdoSendUsingPickup = 1 sHidden = Request.Form("hidEnvia") 'sDoUsuario = Request.Form("txtNome") & " <" & Request.Form("txtEmail") & ">" sDoContato = "Contato Saneamento.com " sDaEmpresa = "Contato Saneamento.com " sAssunto = "Mensagem do site Saneamento.com" sMensagem = "A seguinte mensagem foi enviada por " & Request.Form("txtNome") & " <" & Request.Form("txtEmail") & ">" & " na secao Contato do site Saneamento.com: " & vbCrLf & Request.Form("txtMensagem") if (sHidden = "1") then Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup 'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") ="usuario_aqui" 'objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="senha_aqui" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon objCDOSYSMail.From = sDoContato objCDOSYSMail.To = sDaEmpresa objCDOSYSMail.Subject = sAssunto objCDOSYSMail.TextBody = sMensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Response.Redirect("finalizacontato.asp") end if %> Saneamento.com

 

     
 

Fale Conosco

  
Preencha o formulário abaixo com sua mensagem:
Nome:
Email:
Mensagem:
 
saneamento.com – Serviços de Engenharia S/S Ltda

Rua Humaitá nº 2152
Centro – Araraquara (SP) CEP: 14801-385

Telefone/Fax: (0**16) 3335-2692
Skype: saneamento.com
  

 

saneamento.com – Serviços de Engenharia S/S Ltda

 

Saneamento.com