<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rs_bolonha
Dim rs_bolonha_numRows
Set rs_bolonha = Server.CreateObject("ADODB.Recordset")
rs_bolonha.ActiveConnection = MM_cc_STRING
rs_bolonha.Source = "SELECT * FROM carloscoelho.dossier_turquia ORDER BY numero ASC"
rs_bolonha.CursorType = 0
rs_bolonha.CursorLocation = 2
rs_bolonha.LockType = 1
rs_bolonha.Open()
rs_bolonha_numRows = 0
%>
<%
Dim rs_pos__MMColParam
rs_pos__MMColParam = "1"
If (Request.QueryString("turquia") <> "") Then
rs_pos__MMColParam = Request.QueryString("turquia")
End If
%>
<%
Dim rs_pos
Dim rs_pos_numRows
Set rs_pos = Server.CreateObject("ADODB.Recordset")
rs_pos.ActiveConnection = MM_cc_STRING
rs_pos.Source = "SELECT * FROM turquia_comentarios ORDER BY data DESC"
rs_pos.CursorType = 0
rs_pos.CursorLocation = 2
rs_pos.LockType = 1
rs_pos.Open()
rs_pos_numRows = 0
%>
<%
titulo = titulo & " - " & gettitulo(submenu)
%>
<%=titulo%>
