<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% pagina = "concursos"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "form2") Then MM_editConnection = MM_iabsp_STRING MM_editTable = "concurso_inscricao" MM_editRedirectUrl = "concurso_inscreveu.asp" MM_fieldsStr = "Str_Autor|value|SoN_Associado|value|CREA|value|RG|value|CPF|value|Str_Endereco|value|Str_Complemtento|value|Str_Bairro|value|Str_Cidade|value|Str_UF|value|Str_CEP|value|Str_Email|value|Str_DDD|value|Str_Telefone|value|Str_Celular|value|Str_Categoria|value|Str_Titulo|value|Str_Instituicao|value|Str_Membro_1|value|Str_Membro_2|value|Str_Membro_3|value|Str_Membro_4|value|Str_Membro_5|value|Str_Membro_6|value|Str_Orientador|value|Str_Nome_Obra|value|Str_Proprietario|value|Str_Conclusao_Obra|value|Str_Cidade_Obra|value|UF_Obra|value|ID_Concurso|value|Data|value" MM_columnsStr = "Str_Autor|',none,''|SoN_Associado|none,none,NULL|CREA|',none,''|RG|',none,''|CPF|',none,''|Str_Endereco|',none,''|Str_Complemtento|',none,''|Str_Bairro|',none,''|Str_Cidade|',none,''|Str_UF|',none,''|Str_CEP|',none,''|Str_Email|',none,''|Str_DDD|',none,''|Str_Telefone|',none,''|Str_Celular|',none,''|Str_Categoria|',none,''|Str_Titulo|',none,''|Str_Instituicao|',none,''|Str_Membro_1|',none,''|Str_Membro_2|',none,''|Str_Membro_3|',none,''|Str_Membro_4|',none,''|Str_Membro_5|',none,''|Str_Membro_6|',none,''|Str_Orientador|',none,''|Str_Nome_Obra|',none,''|Str_Proprietario|',none,''|Str_Conclusao_Obra|',none,''|Str_Cidade_Obra|',none,''|UF_Obra|',none,''|ID_Concurso|none,none,NULL|Data|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close 'envia confirmação if (request("ID_Concurso") = "47") AND (request("Str_Email")&"a"<>"a") then 'envia e-mail de confirmação bode = "
 

Acusamos o recebimento de sua inscrição no concurso público nacional de projetos "Bairro Novo - Concurso Nacional para um Projeto Urbano".

1. De acordo com o item 5 do regulamento do Concurso, para confirmar sua inscrição e receber sua senha de acesso ao Material de Referência do Concurso você deverá agora efetuar o pagamento de taxa de inscrição no valor de:

Para não sócios ou associados não quites do Instituto de Arquitetos do Brasil - R$ 300,00 (Trezentos Reais).

Para associados quites com o Instituto de Arquitetos do Brasil - R$ 150,00 (Cento e Cinqüenta Reais)

O pagamento da taxa de inscrição deverá ser efetuado a favor de INSTITUTO DE ARQUITETOS DO BRASIL - DEPARTAMENTO DE SÃO PAULO, cnpj 46.226.148/0001-4, através de depósito bancário identificado em uma das seguintes contas abaixo:

Banco Itaú Agencia 0553 conta-corrente 34.336-9

Banespa Agência 083 conta-corrente 13-02275-9

2. Após o pagamento da taxa de inscrição você deverá enviar à Secretaria do IAB/SP, à Rua Bento Freitas 306, São Paulo/SP, CEP 01220-000, telefone / Fax (011) 3259.6866 os seguintes documentos:

_ Recibo de depósito da taxa de inscrição

_ Carteira do CREA

_ Cópia do Recibo da Anuidade de 2004 do CREA

Lembramos que os documentos acima poderão ser enviados à Secretaria do IAB/SP via Fax.

3. Em até um dia útil após o recebimento dos documentos acima pela Secretaria do IAB/SP você receberá comunicação via e-mail contendo seu acesso à área restrita do Concurso para a criação de sua senha pessoal.

Bom trabalho.

Comissão Organizadora

 
" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.ContentType = "text/html" Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.FromName = "IAB - Concurso Bairro Novo" Mailer.FromAddress = "bairronovo@iabsp.org.br" Mailer.AddRecipient request("Str_Autor"),request("Str_Email") Mailer.Subject= "Concurso Bairro Novo - instruções para inscrição" Mailer.Bodytext = bode x = Mailer.SendMail set mailer = nothing end if If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim ID ID = "0" If (Request.QueryString("ID") <> "") Then ID = Request.QueryString("ID") End If %> <% Dim Concurso Dim Concurso_numRows Set Concurso = Server.CreateObject("ADODB.Recordset") Concurso.ActiveConnection = MM_iabsp_STRING Concurso.Source = "SELECT ID_Concurso, Str_Imagem_Grande, Str_Nome, Str_Resumo, Str_Link, V_Consulta, V_Regulamento FROM concurso WHERE ID_Concurso = " + Replace(ID, "'", "''") + "" Concurso.CursorType = 0 Concurso.CursorLocation = 2 Concurso.LockType = 1 Concurso.Open() Concurso_numRows = 0 %> <% Dim Ficha Dim Ficha_numRows Set Ficha = Server.CreateObject("ADODB.Recordset") Ficha.ActiveConnection = MM_iabsp_STRING Ficha.Source = "SELECT Str_Endereco, Str_Telefone, Str_Instituicao, Str_Orientador, Str_Membro_1, Str_Membro_2, Str_Membro_3, Str_Membro_4, Str_Membro_5, Str_Membro_6, SoN_Associado, CREA, RG, CPF, Str_Categoria, Str_Titulo, Str_Nome_Obra, Str_Proprietario, Str_Conclusao_Obra, Str_Cidade_Obra, UF_Obra FROM concurso WHERE ID_Concurso = " + Replace(ID, "'", "''") + "" Ficha.CursorType = 0 Ficha.CursorLocation = 2 Ficha.LockType = 1 Ficha.Open() Ficha_numRows = 0 %> Instituto de Arquitetos do Brasil - Departamento de São Paulo
<%=(Concurso.Fields.Item("Str_Nome").Value)%>
Ficha de inscrição
<% if(Ficha.Fields.Item("SoN_Associado").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("CREA").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("RG").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("CPF").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Endereco").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Telefone").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Categoria").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Titulo").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Instituicao").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Membro_1").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Membro_2").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Membro_3").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Membro_4").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Membro_5").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Membro_6").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Orientador").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Nome_Obra").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Proprietario").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Conclusao_Obra").Value) > 0 then%> <%end if%> <% if(Ficha.Fields.Item("Str_Cidade_Obra").Value) > 0 then%> <%end if%>
Autor:
Associado do IAB:
sim   não
CAU:
RG:
CPF:
Endereco:
Complemento:
Bairro:
Cidade: UF:
CEP:
E-mail:
DDD: Telefone:
Celular:
Categoria:
Título do trabalho:
Instituição:
Membro 1:
Membro 2:
Membro 3:
Membro 4:
Membro 5:
Membro 6:
Orientador:
Nome da Obra:
Proprietário:
Data de conclusão:
Cidade: UF:
 
<%if (Concurso.Fields.Item("Str_Link").Value)&"a" <> "a" then %> <%link=(Concurso.Fields.Item("Str_Link").Value)%> <% end if%> <%if (Concurso.Fields.Item("V_Regulamento").Value) = 1 then %> <% end if%> <%if (Concurso.Fields.Item("V_Consulta").Value) = 1 then %> <% end if%>
veja mais
<%=link%>
Regulamento
Consultas
<% Concurso.Close() Set Concurso = Nothing %> <% Ficha.Close() Set Ficha = Nothing %>