<%@LANGUAGE="VBSCRIPT"%> <% Response.Redirect "http://iabsp.org.br/index.php/concursos/" %> <% pagina = "concursos"%> <% 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_Inscricao, V_Regulamento FROM concurso WHERE ID_Concurso = " + Replace(ID, "'", "''") + "" Concurso.CursorType = 0 Concurso.CursorLocation = 2 Concurso.LockType = 1 Concurso.Open() Concurso_numRows = 0 %> <% Dim Resultado Dim Resultado_numRows Set Resultado = Server.CreateObject("ADODB.Recordset") Resultado.ActiveConnection = MM_iabsp_STRING Resultado.Source = "SELECT int_Ordem, str_Imagem, str_Texto FROM concurso_resultado WHERE ID_Concurso = " + Replace(ID, "'", "''") + " ORDER BY int_Ordem ASC" Resultado.CursorType = 0 Resultado.CursorLocation = 2 Resultado.LockType = 1 Resultado.Open() Resultado_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Resultado_numRows = Resultado_numRows + Repeat1__numRows %> Instituto de Arquitetos do Brasil - Departamento de São Paulo
<% imagem_grande =(Concurso.Fields.Item("Str_Imagem_Grande").Value)%><%if imagem_grande & "a"<>"a" then%><%end if%> <% If Not Resultado.EOF Or Not Resultado.BOF Then %> <% While ((Repeat1__numRows <> 0) AND (NOT Resultado.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Resultado.MoveNext() Wend %><%else%> <% End If ' end Not Resultado.EOF Or NOT Resultado.BOF %>
<%=(Concurso.Fields.Item("Str_Nome").Value)%>
<% imagem =(Resultado.Fields.Item("str_Imagem").Value)%> <%if imagem&"a"<>"a" then%> <%end if%>
<%= replace((Resultado.Fields.Item("str_Texto").Value),chr(13),"
")%>
 
<%= replace ((Concurso.Fields.Item("Str_Resumo").Value),chr(13), "
")%>
<%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_Inscricao").Value) = 1 then %> <% end if%> <%if (Concurso.Fields.Item("V_Consulta").Value) = 1 then %> <% end if%>
veja mais
<%=link%>
Regulamento
Inscrição
Consultas
<% Concurso.Close() Set Concurso = Nothing %> <% Resultado.Close() Set Resultado = Nothing %>