<% Dim iMsg, efrom Dim objCDOSYSMail Dim objCDOSYSCon efrom = Request.Form("email") 'CRIA A INSTÂNCIA COM O OBJETO CDOSYS Set objCDOSYSMail = Server.CreateObject("CDO.Message") 'CRIA A INSTÂNCIA DO OBJETO PARA CONFIGURAÇÃO DO SMTP Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'SERVIDOR DE SMTP, USE smtp.SeuDominio.com OU smtp.hostsys.com.br objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.guidolin.com.br" 'PORTA PARA COMUNICAÇÃO COM O SERVIÇO DE SMTP objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'PORTA DO CDO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'ATIVAR RECURSO DE SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ecopublicidade@guidolin.com.br" 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "envia" 'TEMPO DE TIMEOUT (EM SEGUNDOS) objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATUALIZA A CONFIGURAÇÃO DO CDOSYS PARA ENVIO DO E-MAIL objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon LCID=1046 nome= Request.form ("nome") email= Request.form ("email") larg= Request.form ("larg") 'larg=replace(larg, ",", "")' alt= Request.form ("alt") 'alt=replace(alt, ",", "")' modelo= Request.form ("modelo") tipo= Request.form ("tipo") social= Request.form ("social") galv= Request.form ("galvanizado") autom= Request.form ("automatico") area=(larg * alt) * modelo if larg >5 then areat=(tipo*2)+area else areat=tipo+area end if total=((areat * galv) + social + autom) total=formatNumber(total,2) 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("galvanizado") texto = texto & "
Automático: " &Request.Form("automatico") texto = texto & "
Total: " &total texto = texto & "
Quer Contato: " &Request.Form("contato") texto = texto & " " objCDOSYSMail.HtmlBody = texto objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing %>

AGRADECEMOS POR SUA VISITA

VENHA CONHECER NOSSO
SHOW ROOM

E TOMAR UM CAFÉ CONOSCO  

Av. Corifeu de Azevedo Marques, 5579

 

 
Total :  
   
Novo Cálculo