<%@LANGUAGE="VBSCRIPT"%> <% pagina = "concursos"%> <% Dim Concursos Dim Concursos_numRows Set Concursos = Server.CreateObject("ADODB.Recordset") Concursos.ActiveConnection = MM_iabsp_STRING Concursos.Source = "SELECT ID_Concurso, Str_Chamada, Str_Imagem, Str_Nome, Str_Resumo FROM concurso WHERE SoN_Visivel = 1 ORDER BY ID_Concurso DESC" Concursos.CursorType = 0 Concursos.CursorLocation = 2 Concursos.LockType = 1 Concursos.Open() Concursos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Concursos_numRows = Concursos_numRows + Repeat1__numRows %>

<% While ((Repeat1__numRows <> 0) AND (NOT Concursos.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Concursos.MoveNext() Wend %>     ">" width="198" border="0">   " class="texto12"><%=(Concursos.Fields.Item("Str_Nome").Value)%> <%chamada = (Concursos.Fields.Item("Str_Chamada").Value) if chamada&"a" <> "a" then response.write (replace (chamada,chr(13)," "))%>

<% Concursos.Close() Set Concursos = Nothing %>