<% Option Explicit Dim strConnect Dim online online = true %> <% Dim db Dim rec Dim clone Dim SQL Dim counter Dim counter2 Dim Lf Dim membre Lf = Chr(13) & Chr(10) counter = 0 counter2 = 0 function rang(c) rang = false if (c mod 5) = 0 then rang = true end function Set db=Server.CreateObject("ADODB.Connection") Set rec=Server.CreateObject("ADODB.Recordset") set clone = Server.CreateObject("ADODB.Recordset") db.Open strConnect %> NovaJack

<% SQL = "SELECT TItems.Titre, TItems.Description, TItems.Texte, TItems.PhotoMenu " & _ "FROM TCategories INNER JOIN TItems ON TCategories.NoCat = TItems.NoCat " & _ "WHERE TCategories.Description = 'Outils forestiers' " & _ "ORDER BY TItems.NoItem" rec.open SQL,db clone.open SQL,db if not(rec.bof = true and rec.eof = true) then do while not rec.eof if rang(counter) then %> <% end if counter= counter + 1 %> <% rec.movenext if rang(counter) or rec.eof then %> <% do while (not rang(counter2) or (counter2 = 0)) and not clone.eof %> <% counter2 = counter2 + 1 clone.movenext loop counter2 = 0 %> <% end if loop end if rec.close clone.close %>
','popwindow','menubar=yes,scrollbars=yes,resizable=yes,width=600,height=575')">

<%=clone("Description")%>
(<%=clone("Titre")%>)

OUTILS FORESTIERS

Les indispensables... pour une puissance inégalée!

Utiliser les outils forestiers NovaJack avec votre véhicule tout-terrain vous permet d’exploiter efficacement votre forêt et d’assurer sa pérennité. En effet, tous les outils sont conçus pour maximiser le rendement, réduire les efforts physiques et assurer la protection des arbres et des sols. Ils sont réputés pour leur robustesse, leur fiabilité et leur facilité d’utilisation.

  Galerie de photos
  Témoignages

Pour visionner les PDF, vous avez besoin du lecteur gratuit Acrobat Reader.

  Téléchargez Acrobat Reader

 

 

 

<% set db = nothing set rec = nothing set clone = nothing %>