<%
' *********************************************************
' Sanata Consultoria texto & Informática - julho/2005
' empresa.htm
' *********************************************************
%>
<%
<%
Dim iMsg, efrom
Dim objCDOSYSMail
Dim objCDOSYSCon
efrom = Request.Form("email")
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sanata@sntinf.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "snt1234"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sntinf.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
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 = efrom
objCDOSYSMail.To = "fazano@fazano.com.br"
objCDOSYSMail.cc = ""
objCDOSYSMail.bcc = "sanata@sntinf.com"
objCDOSYSMail.Subject = "Contato Manutenção"
texto = ""
texto = texto & "
Cliente: " &Request.Form("nome")
texto = texto & "
Endereço: " &Request.Form("endereco")
texto = texto & "
Bairro: " &Request.Form("bairro")
texto = texto & "
Estado: " &Request.Form("UF")
texto = texto & "
DDD: " &Request.Form("ddd")
texto = texto & "
Telefone1: " &Request.Form("telefone1")
texto = texto & "
Telefone2: " &Request.Form("telefone2")
texto = texto & "
E-mail: " &Request.Form("email")
texto = texto & "
Garantia: " &Request.Form("garantia")
texto = texto & "
Pedido: " &Request.Form("pedido")
texto = texto & "
Observação: " &Request.Form("observacao")
texto = texto & "
"
objCDOSYSMail.HtmlBody = texto
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
Portões, Fazano, Portões de Madeira, Portões de Chapa, Portões de Alumínio, Portões de Chapa de ferro, Portões de Tela, Portões Automáticos, Alarmes, Cercas Eletricas, Segurança, Eletrificadas, Serralheria, Controle Remoto, Portaria, Cancelas, Automatizadores