%@LANGUAGE="VBSCRIPT"%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "genie vegetal"
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 offers you its “ architects' notebook ”.
By connecting to the “ génie végétal ” website, you can download technical information on our various civil engineering products in PDF format.
www.genie-vegetal.com |
|
|
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
%>