<%
LCID=1046
nome= Request.form ("nome")
telefone= Request.form ("telefone")
email= Request.form ("email")
larg= Request.form ("larg")
'larg=replace(larg, ",", "")'
alt= Request.form ("alt")
'alt=replace(alt, ",", "")'
model= Request.form ("modelo")
tipo= Request.form ("tipo")
social= Request.form ("social")
galv= Request.form ("galvanizado")
autom= Request.form ("automatico")
If tipo=670 then
tip="Basculante"
elseif tipo=770 then
tip="Deslizante"
else
tip="Pivotante"
end if
If social=0 then
soc="Não"
else
soc="Sim"
end if
If galv=1 then
gal="Não"
else
gal="Sim"
end if
If autom=0 then
aut="Não"
else
aut="Sim"
end if
If model=1 then
modelo=418
End if
If model=2 then
modelo=319
end if
If model=3 then
modelo=247.50
end if
If model=4 then
modelo=357.50
end if
If model=5 then
modelo=352
end if
If model=6 then
modelo=247.50
end if
If model=7 then
modelo=247.50
end if
If model=8 then
modelo=236.50
end if
If model=9 then
modelo=418
end if
If model=10 then
modelo=440
end if
If model=11 then
modelo=236.50
end if
If model=12 then
modelo=236.50
end if
If model=13 then
modelo=236.50
end if
If model=14 then
modelo=235.40
end if
If model=15 then
modelo=308
end if
If model=16 then
modelo=247.50
end if
If model=17 then
modelo=247.50
end if
If model=18 then
modelo=440
end if
If model=19 then
modelo=247.50
end if
If model=20 then
modelo=236.50
end if
If model=21 then
modelo=269.50
end if
If model=22 then
modelo=286
end if
If model=23 then
modelo=269.50
end if
If model=24 then
modelo=269.50
end if
If model=25 then
modelo=220
end if
If model=26 then
modelo=236.50
end if
If model=27 then
modelo=269.50
end if
If model=28 then
modelo=440
end if
If model=29 then
modelo=335.50
end if
If model=30 then
modelo=324.50
end if
If model=31 then
modelo=297
end if
If model=32 then
modelo=324.50
end if
If model=33 then
modelo=247.50
end if
If model=34 then
modelo=236.50
end if
If model=35 then
modelo=236.50
end if
If model=36 then
modelo=236.50
end if
area=(larg * alt) * modelo * galv
if autom > 0 then
if larg >5 then
areat=(tipo*2)+area
else
areat=tipo+area
end if
else
areat = area
end if
total=(areat) + social
total=formatNumber(total,2)
Dim iMsg, efrom, texto
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") = "localhost"
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") = 60
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 & " Telefone: " &Request.Form("telefone")
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: " &tip
texto = texto & " Portão Social: " &soc
texto = texto & " Galvanizado: " &gal
texto = texto & " Automático: " &aut
texto = texto & " Total: " &total
texto = texto & " Quer Contato: " &Request.Form("contato")
texto = texto & "
"
objCDOSYSMail.HtmlBody = texto
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>