<%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "contacts"
If (Request("MM_EmptyValue") <> "") Then
Recordset1__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_plantco_actu_STRING
Recordset1_cmd.CommandText = "SELECT * FROM texte_page WHERE nom_page = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 80, Recordset1__MMColParam) ' adVarChar
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%=(Recordset1.Fields.Item("titre_en").Value)%>
">
">
PLANTCO France - Z.A. de la Croche - 86320 CIVAUX
Service commercial : 05 49 84 58 32 - Tél. : 05 49 84 58 30
Fax : 05 49 84 58 31 - info@plantco.fr
© cocoon : creativmedias - 2007
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
