<% 'CPF DE TESTE: 56841611543 '==================================================================================================================== '==================================================================================================================== '==================================================================================================================== Dim Acao Dim msgerr, objFile, objXML Dim strNome, strEndereco, strNumero, strComplemento, strCEP, strCidade, strUF Dim strCPF, strDataNascimento, strSexo, strDDDTelefone, strTelefone, strDDDCelular Dim strCelular, strDDDFax, strFax, strEmail, strEmpresa, strDepartamento Dim strCargo, strAreaAtuacao, strNomeCracha, strSala, strInfoEvento, strInfoEventoOutro On Error Resume Next '==================================================================================================================== 'VERIFICA A EXISTENCIA DO ARQUIVO DE CONFIGURACAO '==================================================================================================================== Set objFile = CreateObject("Scripting.FileSystemObject") If Not objFile.FileExists(Server.MapPath("config/conectaForum.xml")) Then Response.Write "

Arquivo de configuração inexistente. Contactar o Administrador.

" Response.End End If Set objFile = Nothing '==================================================================================================================== 'INSTALACAO DO COMPONENTE PARA XML '==================================================================================================================== Set objXML = Server.CreateObject("MSXML.DOMDocument") If Err.number <> 0 Then Response.Write "

Erro ao instanciar o componente Microsoft.XMLDom. Contactar o Administrador.

" Response.End End If '==================================================================================================================== 'CARREGA O ARQUIVO XML '==================================================================================================================== objXML.Load( Server.MapPath("config/ConectaForum.xml") ) objXML.async = False If objXML.parseError.errorCode <> 0 Then Response.Write "Erro ao carregar arquivo conecta.xml

" & objXML.parseError.errorCode & " - " & objXML.parseError.reason & "" Response.End End If Set nodRaiz = objXML.documentElement For Each nodChild In nodRaiz.childNodes Select Case nodChild.baseName Case "SGBD" Session("SGBD") = Trim(nodChild.Text) Case "CONNECTION_STRING" Session("CONNECTION_STRING") = Trim(nodChild.Text) Case "YEAR" Session("AnoForum") = Trim(nodChild.Text) Case "TEMA" Session("Tema") = Trim(nodChild.Text) End Select Next If Session("SGBD") = Empty Then Response.Write "Não informado o SGBD a ser utilizado no arquivo de configuração ConectaForum.xml,
contactar o Administrador do Sistema.
" Response.End End If If Session("CONNECTION_STRING") = Empty Then Response.Write "String de conexão com o Banco de Dados não informada no arquivo de configuração ConectaForum.xml,
contactar o Administrador do Sistema.
" Response.End End If On Error Goto 0 If Session("SGBD") = "FIREBIRD" Then Session("DataBase") = cFireBird End If %> <% '==================================================================================================================== Call Inicio() '==================================================================================================================== '==================================================================================================================== '==================================================================================================================== '==================================================================================================================== %> 2º Fórum IBOPE | Negócios Sustentáveis

 
 

Almoço

 

 

<% '==================================================================================================================== Sub Inicio '==================================================================================================================== msgerr = OpenBD Acao = Request.Form("acao") If Acao = "ENVIAR" Then ObterInformacao GravarDados Call EnviarEmail(Acao, strEmail, ObterEmailAdmin, Session("AnoForum")) LimparInformacao Close_BD() End If End Sub '==================================================================================================================== Function ListarSalas '==================================================================================================================== Dim sRetorno strSql = "SELECT * FROM FORUM_SALAS ORDER BY FORSAL_ORDEM" sRetorno = PreencheCombo(strSql, "FORSAL_SALA") ListarSalas = sRetorno End Function '==================================================================================================================== Function ListarInformacaoEvento '==================================================================================================================== Dim sRetorno strSql = "SELECT * FROM FORUM_INFOEVENTO ORDER BY FORINF_ORDEM " sRetorno = PreencheCombo(strSql, "FORINF_ORIGEM") ListarInformacaoEvento = sRetorno End Function '==================================================================================================================== Sub GravarDados '==================================================================================================================== Dim strSQL strSQL = Empty strSQL = strSQL + " INSERT INTO FORUM_USUARIOS " strSQL = strSQL + " (FORUSU_NOME, FORUSU_ENDERECO, FORUSU_NUMERO, FORUSU_COMPLEMENTO, FORUSU_CEP, FORUSU_CIDADE, " strSQL = strSQL + " FORUSU_UF, FORUSU_CPF, FORUSU_DTNASC, FORUSU_SEXO, FORUSU_DDDFONE, FORUSU_FONE, FORUSU_DDDCELULAR, " strSQL = strSQL + " FORUSU_CELULAR, FORUSU_DDDFAX, FORUSU_FAX, FORUSU_EMAIL, FORUSU_EMPRESA, FORUSU_DEPARTAMENTO, FORUSU_CARGO, " strSQL = strSQL + " FORUSU_AREAATUACAO, FORUSU_NOMECRACHA, FORUSU_SALA, FORUSU_ANO, FORUSU_DTCADASTRO, FORUSU_INFOEVENTO, FORUSU_INFOEVENTOOUTRO) " strSQL = strSQL + " VALUES ('" & strNome & "', '" & strEndereco & "', '" & strNumero & "', '" & strComplemento & "', '" & strCEP & "', '" strSQL = strSQL + strCidade & "', '" & strUF & "', '" & strCPF & "', '" & strDataNascimento & "', '" & strSexo & "', '" & strDDDTelefone & "', '" strSQL = strSQL + strTelefone & "', '" & strDDDCelular & "', '" & strCelular & "', '" & strDDDFax & "', '" & strFax & "', '" & strEmail & "', '" strSQL = strSQL + strEmpresa & "', '" & strDepartamento & "', '" & strCargo & "', '" & strAreaAtuacao & "', '" & strNomeCracha & "', '" & strSala & "', '" & Session("AnoForum") & "', '" & CDate(Date()) & "', '" & strInfoEvento & "', '" & strInfoEventoOutro & "') " 'Response.Write(strSQL) 'Response.End BD.Execute(strSQL) If Err.number <> 0 then Response.Write "
" & fontsize & "Erro no código sql a seguir:
" & replace(strSQL,", ",",
") & "
" & err.description & "" Response.End end If End Sub '==================================================================================================================== Sub ObterInformacao '==================================================================================================================== strNome = Request.Form("NOME") strEndereco = Request.Form("ENDERECO") strNumero = Request.Form("NUMERO") strComplemento = Request.Form("COMPLEMENTO") strCEP = Request.Form("CEP") strCidade = Request.Form("CIDADE") strUF = Request.Form("UF") strCPF = Request.Form("CPF") strDataNascimento = Request.Form("DATANASCIMENTO") strSexo = Request.Form("SEXO") strDDDTelefone = Request.Form("DDD_TELEFONE") strTelefone = Request.Form("TELEFONE") strDDDCelular = Request.Form("DDD_CELULAR") strCelular = Request.Form("CELULAR") strDDDFax = Request.Form("DDD_FAX") strFax = Request.Form("FAX") strEmail = Request.Form("EMAIL") strEmpresa = Request.Form("EMPRESA") strDepartamento = Request.Form("DEPARTAMENTO") strCargo = Request.Form("CARGO") strAreaAtuacao = Request.Form("AREAATUACAO") strNomeCracha = Request.Form("NOMECRACHA") strSala = Request.Form("SALA") strInfoEvento = Request.Form("INFOEVENTO") strInfoEventoOutro = Request.Form("SOUBEEVENTO") strDataNascimento = FormataDataMesDiaAno(strDataNascimento) End Sub '==================================================================================================================== Sub LimparInformacao '==================================================================================================================== strNome = Empty strEndereco = Empty strNumero = Empty strComplemento = Empty strCEP = Empty strCidade = Empty strUF = Empty strCPF = Empty strDataNascimento = Empty strSexo = Empty strDDDTelefone = Empty strTelefone = Empty strDDDCelular = Empty strCelular = Empty strDDDFax = Empty strFax = Empty strEmail = Empty strEmpresa = Empty strDepartamento = Empty strCargo = Empty strAreaAtuacao = Empty strNomeCracha = Empty strSala = Empty strInfoEvento = Empty strInfoEventoOutro = Empty End Sub '==================================================================================================================== Sub EnviarEmail(action, str_email, str_email_admin, ano) '==================================================================================================================== Dim strBody Dim strBodyUsuario Dim Mail Dim headini, headfim, cr, txtini, txtfim, ASPAS '================================================================================================================ 'CONSTANTES '================================================================================================================ ASPAS = CHR(34) headini = "" headfim = "" cr = "
" txtini = "" txtfim = "" color = "#FFFFFF" td01ini = "" td02ini = "" td03 = " " '"" + "       " + "" tdfim = "" '================================================================================================================ 'HTML - CORPO DO E-MAIL '================================================================================================================ strBody = "" strBody = strBody + "" strBody = strBody + "" '================================================================================================================ 'CABECALHO '================================================================================================================ strBody = strBody + "" strBody = strBody + "" strBody = strBody + "" 'strBody = strBody + "" strBody = strBody + "" strBody = strBody + "
" strBody = strBody + + cr + headini + "  Fórum IBOPE " & ano + " - " + headfim 'strBody = strBody + "" strBody = strBody + txtini + "Confirmação da Pré-Inscrição" + txtfim + cr + cr strBody = strBody + "
" '================================================================================================================ 'CONTEUDO '================================================================================================================ strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Nome: " + tdfim strBody = strBody + td02ini + strNome + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Endereço: " + tdfim strBody = strBody + td02ini + strEndereco + " " + strNumero + " - " + strComplemento + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "CEP: " + tdfim strBody = strBody + td02ini + strCEP + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Cidade: " + tdfim strBody = strBody + td02ini + strCidade + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "CPF: " + tdfim strBody = strBody + td02ini + strCPF + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Data de Nascimento: " + tdfim strBody = strBody + td02ini + strDataNascimento + tdfim strBody = strBody + td03 strBody = strBody + "" if strSexo = "M" then strBody = strBody + "" strBody = strBody + td01ini + "Sexo: " + tdfim strBody = strBody + td02ini + "Masculino" + tdfim strBody = strBody + td03 strBody = strBody + "" else strBody = strBody + "" strBody = strBody + td01ini + "Sexo: " + tdfim strBody = strBody + td02ini + "Feminino" + tdfim strBody = strBody + td03 strBody = strBody + "" end if strBody = strBody + "" strBody = strBody + td01ini + "Fone: " + tdfim strBody = strBody + td02ini + "(" + strDDDTelefone + ")" + strTelefone + tdfim strBody = strBody + td03 strBody = strBody + "" if strCelular <> Empty then strBody = strBody + "" strBody = strBody + td01ini + "Celular: " + tdfim strBody = strBody + td02ini + "(" + strDDDCelular + ")" + strCelular + tdfim strBody = strBody + td03 strBody = strBody + "" end if if strFax <> Empty then strBody = strBody + "" strBody = strBody + td01ini + "Fax: " + tdfim strBody = strBody + td02ini + "(" + strDDDFax + ")" + strFax + tdfim strBody = strBody + td03 strBody = strBody + "" end if strBody = strBody + "" strBody = strBody + td01ini + "E-mail: " + tdfim strBody = strBody + td02ini + strEmail + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Empresa: " + tdfim strBody = strBody + td02ini + strEmpresa + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Departamento: " + tdfim strBody = strBody + td02ini + strDepartamento + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Cargo: " + tdfim strBody = strBody + td02ini + strCargo + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Área de Atuação: " + tdfim strBody = strBody + td02ini + strAreaAtuacao + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Nome para Crachá: " + tdfim strBody = strBody + td02ini + strNomeCracha + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Sala: " + tdfim strBody = strBody + td02ini + strSala + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + td01ini + "Soube do Evento através: " + tdfim strBody = strBody + td02ini + strInfoEvento + tdfim strBody = strBody + td03 strBody = strBody + "" strBody = strBody + "" strBody = strBody + "
 
" '================================================================================================================ 'MENSAGEM DE PRE-INSCRICAO '================================================================================================================ strBodyUsuario = strBodyUsuario + "" strBodyUsuario = strBodyUsuario + "" strBodyUsuario = strBodyUsuario + "" strBodyUsuario = strBodyUsuario + "" strBodyUsuario = strBodyUsuario + "" strBodyUsuario = strBodyUsuario + "" strBodyUsuario = strBodyUsuario + "
" strBodyUsuario = strBodyUsuario + "
Caso não consiga visualizar, clique aqui
" '================================================================================================================ strBody = strBody + "" strBody = strBody + "" '================================================================================================================ 'MAIL USUARIO '================================================================================================================ Set Mail = nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.ibope.com.br" Mail.Port = 25 Mail.From = "forumibope@ibope.com.br" Mail.FromName = "Fórum IBOPE " Mail.AddAddress(str_email) Mail.Subject = "Pré-Inscrição - Fórum IBOPE" 'Response.Write strBodyUsuario 'Response.End Mail.IsHTML = True Mail.Body = strBodyUsuario Mail.Send '================================================================================================================ 'MAIL ADMINISTRADORES '================================================================================================================ while not str_email_admin.eof Set Mail = nothing Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.ibope.com.br" Mail.Port = 25 Mail.From = "forumibope@ibope.com.br" Mail.FromName = "Fórum IBOPE " Mail.AddAddress(str_email_admin("FORADM_EMAIL").value) Mail.Subject = "Fórum Ibope " & ano & " - Pré-Inscrição de Novo Usuário" Mail.IsHTML = True Mail.Body = "" Mail.Body = strBody Mail.Send str_email_admin.movenext wend Set Mail = nothing if err <> 0 then Response.Write "An error occurred: " & Err.Description Response.End else ShowMessage(1) end if Set Mail= nothing End Sub '==================================================================================================================== Function ObterEmailAdmin '==================================================================================================================== Dim sRetorno strSql = "SELECT * FROM FORUM_ADMINISTRADORES" Set recordset = Server.CreateObject("ADODB.Recordset") on error resume next recordset.Open strSql, BD, 3, 2 if err.number<>0 then Response.Write "
" & fontsize & "Erro no código sql a seguir:
" & sql & "
" & err.description & "" Response.end end if on error goto 0 Set ObterEmailAdmin = recordset End Function %>