<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "actualite" 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 %> <% Dim choix_actus Dim choix_actus_numRows Set choix_actus = Server.CreateObject("ADODB.Recordset") choix_actus.ActiveConnection = MM_plantco_actu_STRING choix_actus.Source = "SELECT * FROM actu ORDER BY date_actu ASC" choix_actus.CursorType = 0 choix_actus.CursorLocation = 2 choix_actus.LockType = 1 choix_actus.Open() choix_actus_numRows = 0 %> <% Dim detail_actu Dim detail_actu_numRows Set detail_actu = Server.CreateObject("ADODB.Recordset") detail_actu.ActiveConnection = MM_plantco_actu_STRING detail_actu.Source = "SELECT * FROM actu ORDER BY date_actu DESC" detail_actu.CursorType = 0 detail_actu.CursorLocation = 2 detail_actu.LockType = 1 detail_actu.Open() %> <%=(Recordset1.Fields.Item("titre_en").Value)%> "> ">
  The company Department Latest news Our products Génie végétal Newsletter Contacts

<%=(replace(detail_actu.Fields.Item("txt_actu").Value,Vbcrlf,"
"))%>

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