%@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
veja mais
<%if (Concurso.Fields.Item("Str_Link").Value)&"a" <> "a" then %>
<%link=(Concurso.Fields.Item("Str_Link").Value)%>