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



Ergonomic tools and personal protection – a must in the woods!

Use NovaJack logging tools to handle, measure and shape logs. A well equipped tool belt will give lumbar support while carrying all the hand tools you need, Protect your head and legs with top quality safety equipment from NovaJack when you use a powersaw. Or build your next log cabin with the amazing log debarker! All our tools are designed for maximum productivity, and your safety is the top priority. Check out each product by clicking on the thumbnail for acomplete, printable description.

  Photo gallery

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

  Download Acrobat Reader




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