Carlos Coelho.org

<%@LANGUAGE="VBSCRIPT"%> <% Dim es_nice__MMColParam es_nice__MMColParam = "1" If (Request.QueryString("nice") <> "") Then es_nice__MMColParam = Request.QueryString("nice") 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 * FROM dossier_nice WHERE id = " + Replace(es_nice__MMColParam, "'", "''") + "" es_nice.CursorType = 0 es_nice.CursorLocation = 2 es_nice.LockType = 1 es_nice.Open() es_nice_numRows = 0 %> <% Dim rs_nice_other__MMColParam rs_nice_other__MMColParam = "1" If (Request.QueryString("nice") <> "") Then rs_nice_other__MMColParam = Request.QueryString("nice") End If %> <% Dim rs_nice_other Dim rs_nice_other_numRows Set rs_nice_other = Server.CreateObject("ADODB.Recordset") rs_nice_other.ActiveConnection = MM_cc_mysql_STRING rs_nice_other.Source = "SELECT id, indice FROM dossier_nice WHERE id <> " + Replace(rs_nice_other__MMColParam, "'", "''") + "" rs_nice_other.CursorType = 0 rs_nice_other.CursorLocation = 2 rs_nice_other.LockType = 1 rs_nice_other.Open() rs_nice_other_numRows = 0 %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rs_nice_other_numRows = rs_nice_other_numRows + Repeat3__numRows %> Carlos Coelho.org

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

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

<%=texto%>

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