<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set rs = Server.CreateObject("ADODB.Recordset") codcurso = trim(request("cod")) if request("enviar") = "Enviar" then 'insere o inscricao para curso nome = replace(trim(request("nome")),"'","") email = replace(trim(request("email")),"'","") cidade = replace(trim(request("cidade2")),"'","") estado = request("uf") sql = ("select uf from uf where id ="&estado) Set rs = conSQL.Execute(sql) estado = rs(0) 'interesse = request("interesse") fone = replace(trim(request("fone")),"'","") pagamento =replace(trim(request("Pagamento")),"'","") mensagem = replace(trim(request("mensagem")),"'","") email = Request.Form("email") NomeNota = replace(trim(request("NomeNota")),"'","") EnderecoNota = replace(trim(request("EnderecoNota")),"'","") CEPNota = replace(trim(request("CEPNota")),"'","") CidadeNota = replace(trim(request("CidadeNota2")),"'","") EstadoNota = request("ufNota") if EstadoNota <> "" then sql = ("select uf from uf where id ="&EstadoNota) Set rs = conSQL.Execute(sql) EstadoNota = rs(0) end if CPFNota = replace(trim(request("CPFNota")),"'","") RGNota = replace(trim(request("RGNota")),"'","") auxData = now() ISODate = Year(auxData) & "-" & Month(auxData) & "-" & Day(auxData) & " " & hour(auxData) & ":" & minute(auxData) & ":" & second(auxData) sql = "INSERT INTO InscricaoCurso (nome, email, telefone, cidade, uf, mensagem, codcurso, NomeNota, " _ & "EnderecoNota, CEPNota, CidadeNota, EstadoNota, CPFNota, RGNota, datahora) VALUES(" sql = sql & "'" & nome &"', " sql = sql & "'" & email &"', " sql = sql & "'" & fone &"', " sql = sql & "'" & cidade &"', " sql = sql & "'" & estado &"', " 'sql = sql & interesse &", " sql = sql & "'" & mensagem &"', " sql = sql & codcurso &", " sql = sql & "'" & NomeNota &"', " sql = sql & "'" & EnderecoNota &"', " sql = sql & "'" & CEPNota &"', " sql = sql & "'" & CidadeNota &"', " sql = sql & "'" & EstadoNota &"', " sql = sql & "'" & CPFNota &"', " sql = sql & "'" & RGNota &"', " 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 nomeCurso = " - " sql = ("SELECT titulo FROM cursos where cod="&codcurso&"") set rs = conSQL.Execute(sql) if not rs.EOF then nomeCurso = rs(0) end if '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 & "

Inscrição realizada com sucesso.

" MsgBody = MsgBody & "

Em breve entraremos em contato.
" MsgBody = MsgBody & "

Acompanhe as últimas notícias em nosso site
www.portaldeauditoria.com.br

" MsgBody = MsgBody & "
" MsgBody = MsgBody & "" 'response.write(MsgBody) objCDOSYSMail.From = "Cursos - Portal de Auditoria " objCDOSYSMail.To = email objCDOSYSMail.ReplyTo = "cursos@portaldeauditoria.com.br" objCDOSYSMail.Subject = "Portal de Auditoria - Inscrição para Curso" 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 - Inscrição para Curso

" MsgBody = MsgBody & "

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

Curso: "&nomeCurso&"
" 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 = "Cursos Portal de Auditoria " objCDOSYSMail.To = "francisco@portaldeauditoria.com.br; eloise@portaldeauditoria.com.br; edilson@portaldeauditoria.com.br; diego@portaldeauditoria.com.br;" objCDOSYSMail.ReplyTo = "cursos@portaldeauditoria.com.br" objCDOSYSMail.Subject = "Portal de Auditoria - Inscrição para Curso" objCDOSYSMail.HtmlBody = MsgBody objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing if pagamento = "Boleto" then msg = "Inscrição realizada com sucesso.

" end if if pagamento = "PagSeguro" then msg = "Inscrição realizada com sucesso.
Clique abaixo para finalizar
" end if if pagamento = "Deposito" then msg = "Inscrição realizada com sucesso.
Deposite o valor na conta:
Banco Itaú
Agencia: 0274
Conta Corrente: 01201-2
Escola de Auditoria e Governança Coorporativa ltda
CNPJ: 14.132.747/0001-08

Confirmação do depósito via FAX ou via E-mail" end if codcurso = "" end if end if %> PORTAL DE AUDITORIA - FORMULÁRIO DE INSCRIÇÃO PARA CURSOS


FORMULÁRIO DE PRÉ-INSCRIÇÃO PARA CURSOS

Mande-nos seus dados e aguarde a confirmação dos mesmos.

<%=msg%>
Dados do Participante:
Nome: *
E-mail: *
Estado: <%sql = ("SELECT uf, id FROM uf ORDER BY uf") Set rs = conSQL.Execute(sql)%> *         Cidade: – Selecione o Estado – *
Curso: <%sql = ("SELECT cod, titulo, data FROM cursos where ativo=true ORDER BY titulo") set rs = conSQL.Execute(sql)%> *
Telefone: *
Mensagem:
 
Dados para Nota Fiscal ou Boleto:
Nome ou Razão Social:
Endereço:
CEP:
Estado: <%sql = ("SELECT uf, id FROM uf ORDER BY uf") Set rs = conSQL.Execute(sql)%>           Cidade: – Selecione o Estado –
CPF ou CNPJ:
RG ou Inscr. Estadual:

Para fazer o pagamento de sua inscrição, 

Consulte as Formas de Pagamento clicando no link abaixo:
Meios de Pagamentos

 
 
  * Campos obrigatórios.
E-mail: contato@portaldeauditoria.com.br
Fones:
Curitiba                (41) 3272-8507
São Paulo            (11) 4063-9121
Rio de Janeiro    (21) 4062-7017
Salvador              (71) 4062-9568
Porto Alegre       (51) 4063-8502
Minas Gerais      (31) 4062-7641

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