<%@LANGUAGE="VBSCRIPT"%> <% pagina = "concursos"%> <% Dim ID ID = "1" 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 FROM concurso WHERE ID_Concurso = " + Replace(ID, "'", "''") + "" Concurso.CursorType = 0 Concurso.CursorLocation = 2 Concurso.LockType = 1 Concurso.Open() Concurso_numRows = 0 %> <% Dim Regulamento Dim Regulamento_numRows Set Regulamento = Server.CreateObject("ADODB.Recordset") Regulamento.ActiveConnection = MM_iabsp_STRING Regulamento.Source = "SELECT ID_Regulamento, Int_Ordem, Str_Imagem, Str_Texto, Str_Titulo FROM concurso_regulamento WHERE ID_Concurso = " + Replace(ID, "'", "''") + " ORDER BY Int_Ordem ASC" Regulamento.CursorType = 0 Regulamento.CursorLocation = 2 Regulamento.LockType = 1 Regulamento.Open() Regulamento_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Regulamento_numRows = Regulamento_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT Regulamento.EOF)) %> <%imagem=(Regulamento.Fields.Item("Str_Imagem").Value) if imagem&"a"<>"a" then %> <% end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Regulamento.MoveNext() Wend %> <%=(Concurso.Fields.Item("Str_Nome").Value)%> "> Regulamento <%=(Regulamento.Fields.Item("Int_Ordem").Value)%>. <%=(Regulamento.Fields.Item("Str_Titulo").Value)%> <%= replace ((Regulamento.Fields.Item("Str_Texto").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_Inscricao").Value) = 1 then %><% end if%> <%if (Concurso.Fields.Item("V_Consulta").Value) = 1 then %><% end if%> veja mais <%=link%> Inscrição Consultas

<% Concurso.Close() Set Concurso = Nothing %> <% Regulamento.Close() Set Regulamento = Nothing %>