" nRecCnt = nRecCnt + 1 sH = sH & "" if nRecCnt = nCols then sH = sH & "" nRecCnt = 0 end if Next if nRecCnt > 0 then sH = sH & "" if Right(Trim(sH), 4) <> "" Then sH = sH & "" sH = sH & "
<% sd Sub ArrayToTable(sArray,nCols) dim nTot dim nCur dim nRecCnt dim sH nTot = Ubound(sArray,2) nRecCnt = 0 For nCur = 1 To nTot if nRecCnt = 0 then sH = sH & "
" & sArray(1,nCur) & " . " & sArray(2,nCur) & "
?
" Response.Write "" & sH & "
" End Sub Function CreateTestArray(nTot) dim sArray() dim nCur Redim sArray(2,nTot) For nCur = 1 To nTot sArray(1,nCur) = nCur sArray(2,nCur) = "Description" Next CreateTestArray = sArray end function Call ArrayToTable(CreateTestArray(52),5) %> Wij leveren tegen scherpe prijzen Logitech Microsoft en Raptor muizen via onze shop.

Muis Logitech MX 510 Performance Optic. retail rood Muis Logitech MX 510 Performance Optic. retail blauw Voor maar 48 € MuisLogitech MX 518 39 € Microsoft IntelliMouse Explorer

Muis Logitech MX 510 voor 35,50 Euro.

Muis Logitech MX 518 . voor 48 Euro.

Microsoft IntelliMouse Explorer 4.0 voor 39 Euro

RAPTOR-GAMING M1, 1600 dpi 33 Euro

Logitech mx310 bulk voor 25 Euro

Mystify Mamba voor 30 Euro.