Carlos Coelho.org

<%@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

Dossier Tratado de Nice

<% dim texto texto = es_nice.Fields.Item("texto").Value texto = replace(texto,"

<%=texto%>

Antes de Nice
Durante Nice
Depois de Nice

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