<% On Error Resume Next %> <% Dim iConf Dim Flds Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail-fwd" .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10 .Update End With %> <% acao = request.form("acao") ' if acao = "" then ' mensagem = "" ' PaginaIndex(mensagem) if acao = "enviar" Then nome = request.form("nome") cpf = request.form("cpf") rg = request.form("rg") email = request.form("email") sexo = request.form("sexo") data_nascimento = request.form("data_nascimento") endereco = request.form("endereco") bairro = request.form("bairro") cidade = request.form("cidade") Uf = request.form("uf") Cep = request.form("cep") dddres = request.form("dddres") Telres = request.form("telres") dddcel = request.form("dddcel") Telcel = request.form("telcel") categoria = request.form("categoria") conhecimento_evento = request.form("conhecimento_evento") Existe = "N" Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\iabce.org.br\dados\concursobeiramar.mdb;" strSQL = "SELECT * FROM inscricoes WHERE cod_evento=" & cod_evento & " AND cpf='" & cpf & "'" set rsquery = oConn.Execute(strSQL) if Not rsquery.Eof then Existe = "S" end if oConn.Close Set oConn = Nothing if categoria = "Associado" then valor = "150" else valor = "250" end if if (Existe = "S") then mensagem = "
Seu cadastro já foi efetuado anteriormente.
Contato: iabce@iabce.org.br
" else Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\inetpub\iabce.org.br\dados\concursobeiramar.mdb;" strSQL = "" strSQL = strSQL & "INSERT INTO inscricoes (" strSQL = strSQL & "cod_evento," strSQL = strSQL & "status," strSQL = strSQL & "data_cadastro," strSQL = strSQL & "nome," strSQL = strSQL & "rg," strSQL = strSQL & "cpf," strSQL = strSQL & "email," strSQL = strSQL & "endereco," strSQL = strSQL & "bairro," strSQL = strSQL & "cidade," strSQL = strSQL & "uf," strSQL = strSQL & "cep," strSQL = strSQL & "dddres," strSQL = strSQL & "telres," strSQL = strSQL & "dddcel," strSQL = strSQL & "telcel," strSQL = strSQL & "categoria," strSQL = strSQL & "sexo," strSQL = strSQL & "data_nascimento," strSQL = strSQL & "valor," strSQL = strSQL & "conhecimento_evento" strSQL = strSQL & ") VALUES (" strSQL = strSQL & cod_evento & "," strSQL = strSQL & "'0'" & "," strSQL = strSQL & "#" & Year(Date()) & "-" & Month(Date()) & "-" & Day(Date()) & "#," strSQL = strSQL & "'" & nome & "'," strSQL = strSQL & "'" & rg & "'," strSQL = strSQL & "'" & cpf & "'," strSQL = strSQL & "'" & LCase(email) & "'," strSQL = strSQL & "'" & endereco & "'," strSQL = strSQL & "'" & bairro & "'," strSQL = strSQL & "'" & cidade & "'," strSQL = strSQL & "'" & uf & "'," strSQL = strSQL & "'" & cep & "'," strSQL = strSQL & "'" & dddres & "'," strSQL = strSQL & "'" & telres & "'," strSQL = strSQL & "'" & dddcel & "'," strSQL = strSQL & "'" & telcel & "'," strSQL = strSQL & "'" & categoria & "'," strSQL = strSQL & "'" & sexo & "'," strSQL = strSQL & "'" & data_nascimento & "'," strSQL = strSQL & "'" & valor & "'," strSQL = strSQL & "'" & conhecimento_evento & "'" strSQL = strSQL & ")" set rsquery = oConn.Execute(strSQL) mensagem = "" mensagem = mensagem & "Sr(a) " & UCase(nome) & ", sua inscrição para o Concurso Beira-mar foi realizada com sucesso !!!

" mensagem = mensagem & "Aguarde email com a validação de seu cadastro.

" mensagem = mensagem & "Conforme Item 5.2 do edital após a validação de seu cadastro a documentação abaixo deve ser enviada via Correios para o Instituto de Arquitetos do Brasil – Departamento do Ceará, à Av. Carapinima, 2425, Bairro Benfica, CEP 60015-290, Fortaleza, Ceará.
" mensagem = mensagem & "- Cópia da carteira do CREA;
" mensagem = mensagem & "- Cópia da quitação 2009 com o CREA;
" mensagem = mensagem & "- Cópia da declaração emitida pelo departamento ou núcleo do IAB de quitação das obrigações com a entidade até o segundo semestre de 2009 (para os associados);
" mensagem = mensagem & "- Cópia do depósito bancário referente ao pagamento da inscrição;
" mensagem = mensagem & "- Original impresso do e-mail de validação de inscrição;
" mensagem = mensagem & "
" mensagem = mensagem & "O pagamento da inscrição deve ser realizado por meio de um depósito bancário identificado a favor da entidade Organizadora na seguinte conta:.
" mensagem = mensagem & "Instituto de Arquitetos do Brasil – Departamento do Ceará
" mensagem = mensagem & "CNPJ 05823596/0001-43
" mensagem = mensagem & "Banco do Brasil 001; agência 3140-2; conta corrente 22.027-2

" mensagem = mensagem & "Contato: iabce@iabce.org.br.
" ' strSQL = "select count(*) as total from inscricoes where cod_evento=" & COD_EVENTO & " and minicurso1='" & minicurso1 & "'" ' Set rsquery = oConn.Execute(strSQL) ' strSQL = "select nome_minicurso,quant_max,quant_aviso from minicursos where codevento=" & COD_EVENTO & " and cod='" & minicurso1 & "'" ' Set rsqueryN = oConn.Execute(strSQL) ' assunto = "Empreender 2009 - Aviso" ' mensagem2 = "" ' If CInt(rsquery("total")) >= rsqueryN("quant_aviso") And CInt(rsquery("total")) <= (rsqueryN("quant_aviso") + 2) Then ' mensagem2 = "" & UCase(rsqueryN("nome_minicurso")) & "" & " atingiu " & rsqueryN("quant_aviso") & " inscrições, lembrando que o limite máximo é " & rsqueryN("quant_max") & "." ' End if ' If mensagem2 <> "" Then ' Call EnviaEmail(mensagem2,assunto,"igorhc@gmail.com") ' End if end If end if sub EnviaEmail(mensagem,assunto,oculto) Set objEmail = CreateObject("CDO.Message") Set objEmail.Configuration = iConf objEmail.From = "ernesto@cearacultural.com.br" ' objEmail.From = "iabce@iabce.org.br" ' objEmail.To = email ' objEmail.Cc = Copia objEmail.Bcc = oculto objEmail.Subject = assunto Html = Mensagem objEmail.HTMLBody = HTML objEmail.Send set objEmail = Nothing If Err.Number <> 0 then response.write "  " & "" & Err.Number & "-" & Err.Description & "" & "
" Err.Clear End If End Sub %>
APRESENTAÇÃO CRONOGRAMA BASES DO CONCURSO INSCRIÇÕES CONSULTAS NOTÍCIAS RESULTADOS
<% if trim(mensagem) = "" then stDia = Day(date) stMes = Month(date) stAno = Int(Year(date)) if stMes>11 Or (stMes=11 And stDia>27) then %> <% else %> <% end if end if %>
 
(Clique aqui e veja o edital do concurso)
(Clique aqui e veja o Termo de Referência do concurso)

 

<%=mensagem%>
I N S C R I Ç Õ E S    E N C E R R A D A S
Nome*:
CREA*:
CPF*:
 Digite somente números
E-mail*:
Sexo*:
Data de nascimento*:
 DD/MM/AAAA
Endereço*:
Bairro*:
Cidade*:
UF*:
CEP*:
Telefone Fixo:
 
Celular:  
Sócio do IAB*:
Como Tomou Conhecimento do Evento?*:
O preenchimento dos campos com * é obrigatório.
Os dados cadastrais dos inscritos são confidenciais e não serão divulgados ou distribuidos.