<%=titulo%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs_pec Dim rs_pec_numRows Set rs_pec = Server.CreateObject("ADODB.Recordset") rs_pec.ActiveConnection = MM_cc_STRING rs_pec.Source = "SELECT id, titulo, indice FROM dossier_pec ORDER BY id ASC" rs_pec.CursorType = 0 rs_pec.CursorLocation = 2 rs_pec.LockType = 1 rs_pec.Open() rs_pec_numRows = 0 %> <% titulo = titulo & " - " & gettitulo(submenu) %> <%=titulo%>

Pacto de Estabilidade e Crescimento

<% While (NOT rs_pec.EOF) %> <% rs_pec.MoveNext() Wend %>

.gif" alt="<%=(rs_pec.Fields.Item("indice").Value)%>" />

"><%=(rs_pec.Fields.Item("id").Value)%>. <%=(rs_pec.Fields.Item("titulo").Value)%>

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