<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsNoticias__MMColParam
rsNoticias__MMColParam = "Link"
If (Request("MM_EmptyValue") <> "") Then
rsNoticias__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsNoticias
Dim rsNoticias_numRows
Set rsNoticias = Server.CreateObject("ADODB.Recordset")
rsNoticias.ActiveConnection = MM_connCorredor_STRING
rsNoticias.Source = "SELECT * FROM paginas WHERE tipo = '" + Replace(rsNoticias__MMColParam, "'", "''") + "' ORDER BY titulo ASC"
rsNoticias.CursorType = 0
rsNoticias.CursorLocation = 2
rsNoticias.LockType = 1
rsNoticias.Open()
rsNoticias_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsNoticias_numRows = rsNoticias_numRows + Repeat1__numRows
%>
Corredor Literário na Paulista
Links recomendados
<%
While ((Repeat1__numRows <> 0) AND (NOT rsNoticias.EOF))
%>