<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rs = Server.CreateObject("ADODB.Recordset") if request("enviar") = "Enviar" then 'insere o contato nome = replace(trim(request("nome")),"'","") email = replace(trim(request("email")),"'","") mensagem = replace(trim(request("mensagem")),"'","") aceitaTermo = request("aceitaTermo") if aceitaTermo = "sim" then aceitaTermo = true else aceitaTermo = false end if cidade = replace(trim(request("cidade")),"'","") estado = request("uf") interesse = request("interesse") fone = replace(trim(request("fone")),"'","") auxData = now() ISODate = Year(auxData) & "-" & Month(auxData) & "-" & Day(auxData) & " " & hour(auxData) & ":" & minute(auxData) & ":" & second(auxData) sql = "INSERT INTO contatoDownload (nome, email, mensagem, AceitaTermo, telefone, cidade, uf, codinteresse, datahora) VALUES(" sql = sql & "'" & nome &"', " sql = sql & "'" & email &"', " sql = sql & "'" & mensagem &"', " sql = sql & aceitaTermo & ", " sql = sql & "'" & fone &"', " sql = sql & "'" & cidade &"', " sql = sql & "'" & estado &"', " sql = sql & interesse &", " sql = sql & "'" & ISODate &"')" on error resume next 'Response.Write(sql) 'response.end conSQL.Execute(sql) if err.number=0 then msg = "" 'insere no banco de emails sql = "INSERT INTO bancoEmail (ColEmail) VALUES ('" & email &"')" conSQL.Execute(sql) if err.number=0 then msg = "" else msg = err.Description end if else msg = err.Description end if if msg = "" then 'email para cliente Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.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 MsgBody = "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "

" MsgBody = MsgBody & "

Obrigado por se Cadastrar Conosco!

" MsgBody = MsgBody & "

Agora você poderá acessar a área de downloads, recorte o link a seguir e cole no seu navegador:
http://www.portaldeauditoria.com.br/down/downd1532513251.htm
" MsgBody = MsgBody & "

Atenciosamente,
Portal de Auditoria

" MsgBody = MsgBody & "

Veja nossas novidades em Cursos Online (com condições especiais)
www.portaldeauditoria.com.br/VideoAula/default.asp

" MsgBody = MsgBody & "

Acompanhe conteúdos e informações em nosso site
www.portaldeauditoria.com.br

" MsgBody = MsgBody & "
" MsgBody = MsgBody & "" 'response.write(MsgBody) objCDOSYSMail.From = "Portal de Auditoria" objCDOSYSMail.To = email objCDOSYSMail.Subject = "Portal de Auditoria - Downloads Gratuitos" objCDOSYSMail.HtmlBody = MsgBody objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing 'envio para administrativo Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.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 MsgBody = "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "" MsgBody = MsgBody & "

" MsgBody = MsgBody & "

Nova mensagem recebida - Download Gratuito

" MsgBody = MsgBody & "

Data/Hora: "&now()&"
" MsgBody = MsgBody & "

Nome: "&nome&"
" MsgBody = MsgBody & "

Email: "&email&"
" MsgBody = MsgBody & "

Telefone: "&fone&"
" MsgBody = MsgBody & "

Cidade: "&cidade&"
" MsgBody = MsgBody & "

UF: "&estado&"
" MsgBody = MsgBody & "

Mensagem: "&replace(mensagem,chr(10),"
")&"
" MsgBody = MsgBody & "" 'response.write(MsgBody) objCDOSYSMail.From = "Portal de Auditoria " objCDOSYSMail.To = "francisco@portaldeauditoria.com.br; diego@escoladeauditoria.com.br" objCDOSYSMail.Subject = "Portal de Auditoria - Download Gratuito" objCDOSYSMail.HtmlBody = MsgBody objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing msg = "Mensagem enviada com sucesso." email = "" end if end if %> PORTAL DE AUDITORIA - DOWNLOADS GRATUITOS DE CONTEÚDOS INTERESSANTES


DOWNLOAD GRATUITO - PORTAL DE AUDITORIA
Preencha o formulário no site e você receberá em seu e-mail o link para realizar o download.

Lembramos que o e-mail deve ser cadastrado corretamente.

Os outros dados solicitamos para identificarmos a região de onde nossos usuários acessam.

Se preferir, deixe-nos uma mensagem.
<%=msg%>
Nome: *
E-mail: *
Cidade: *         Estado: <%sql = ("SELECT uf FROM uf ORDER BY uf") Set rs = conSQL.Execute(sql)%> *
Interesse: <%sql = ("SELECT cod, titulo FROM interesse where ativo=true ORDER BY titulo") set rs = conSQL.Execute(sql)%> *
Telefone: *
Mensagem:
Aceito receber Conteúdos e Atualizações em meu E-mail.
 
  * Campos obrigatórios.
Obs: Se você utiliza filtro anti-spam favor habilitar o e-mail portaldeauditoria@portaldeauditoria.com.br, para facilitar o procedimento do Download

<% set conSQL=nothing Set rs = Nothing %>