%@LANGUAGE="VBSCRIPT"%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = -1
Repeat3__index = 0
es_nice_numRows = es_nice_numRows + Repeat3__numRows
%>
<%
Dim es_nice__MMColParam
es_nice__MMColParam = "0"
If (Request("MM_EmptyValue") <> "") Then
es_nice__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim es_nice
Dim es_nice_numRows
Set es_nice = Server.CreateObject("ADODB.Recordset")
es_nice.ActiveConnection = MM_cc_mysql_STRING
es_nice.Source = "SELECT id, titulo, texto, indice FROM dossier_nice WHERE id = " + Replace(es_nice__MMColParam, "'", "''") + " ORDER BY id ASC"
es_nice.CursorType = 0
es_nice.CursorLocation = 2
es_nice.LockType = 1
es_nice.Open()
es_nice_numRows = 0
%>
Carlos Coelho.org
<%es_nice.Close()
Set es_nice = Nothing
%>