<% 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.Descriptione, 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("Descriptione")%>
(<%=clone("Titre")%>)

ATV LOGGING ACCESSORIES

Unique tools to help you get the job done

If you want to haul logs out the woods, NovaJack has designed a complete line of accessories for winching, hauling or anchoring to your ATV. Click on the thumbnail to open a printable description for each accessory. And don’t forget to check out our heavy-duty ATV chains to increase traction and reduce tire wear!

  Photo gallery
  Testimonials

To see documents in PDF format, you need free Acrobat Reader.

  Download Acrobat Reader

 

 

 

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