<%
' *********************************************************
' Sanata Consultoria texto & Informática - julho/2005
' empresa.htm
' *********************************************************
%>
<%
Dim rs, sqlestoque, email, msgbody, efrom
Dim objCDOSYSMail
Dim objCDOSYSCon
efrom=request.form("email")
modelo=request.form("modelo")
If modelo="" then
Response.write("NENHUM MODELO FOI SELECIONADO, VOLTE E SELECIONE UM OU MAIS MODELOS QUE DESEJA CONSULTAR")
Response.write("
VOLTAR")
else
'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
objCDOSYSMail.From = efrom
objCDOSYSMail.To = "fazano@fazano.com.br"
objCDOSYSMail.cc = ""
objCDOSYSMail.bcc = "sanata@sntinf.com"
objCDOSYSMail.Subject = "CONTATO ATRAVÉS DO SITE"
texto = ""
texto = texto & " Contato através do site da Fazano"
texto = texto & " " & now()
texto = texto & " Cliente: " &Request.Form("nome")
texto = texto & " DDD / Telefone: " &Request.Form("ddd") &" / " &Request.Form("telefone")
texto = texto & " E-mail: " &Request.Form("email")
texto = texto & " Endereço: " &Request.Form("endereco")
texto = texto & " CEP: " &Request.Form("cep")
texto = texto & " Bairro: " &Request.Form("bairro")
texto = texto & " Cidade: " &Request.Form("cidade")
texto = texto & " Estado: " &Request.Form("estado")
texto = texto & " Largura: " &Request.Form("largura")&"x Altura: "&Request.Form("altura")
texto = texto & " Portão Social: " &Request.Form("psocial")
texto = texto & " Largura P.Social: " &Request.Form("largura2")&"x Altura P.Social: "&Request.Form("altura2")
texto = texto & " Observação: " &Request.Form("obs")
texto = texto & " Modelos Escolhidos: "
texto = texto & Request.Form("modelo")
texto = texto & "
"
objCDOSYSMail.HtmlBody = texto
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
FAZANO Portões Automáticos Portão Elétrico Eletrônico Porta Casa Alumínio Automatização Basculante Deslizante Pivotante Grade Motor Automacao Automação Ferro Tubo Controle Remoto Alarmes Cancelas Serralheria Fechaduras
