<% 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 = 'Accessoires 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")%>)

ACCESSOIRES FORESTIERS

Les incontournables... pour du travail bien fait!

NovaJack offre divers accessoires, qui peuvent être utilisés seuls ou combinés à d’autres outils, ont été conçus à partir de vos besoins et préoccupations en tant qu'exploitants de boisés privés. Si vous visez l’efficacité, la rapidité et la sécurité, NovaJack vous propose des solutions concrètes et accessibles.

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