<% ' ********************************************************* ' Sanata Consultoria texto & Informática '' ********************************************************* %> <% Dim iMsg, efrom efrom = Request.Form("email") Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.fazano.com.br" 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@sanata.com.br" objCDOSYSMail.Subject = "CÁLCULO ON-LINE - FAZANO" texto = "" texto = texto & "
" & now() texto = texto & "
Cliente: " &Request.Form("nome") texto = texto & "
E-mail: " &Request.Form("email") texto = texto & "
Medidas: " &Request.Form("larg") & " x " & Request.Form("alt") texto = texto & "
Modelo: " &Request.Form("modelo") texto = texto & "
Tipo de Motor: " &Request.Form("tipo") texto = texto & "
Portão Social: " &Request.Form("social") texto = texto & "
Galvanizado: " &Request.Form("galvaizado") texto = texto & "
Automático: " &Request.Form("automatico") texto = texto & "
Quer Contato: " &Request.Form("contato") texto = texto & " " objCDOSYSMail.HtmlBody = texto objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %>