Contact pagina van cyes voor promotionele relatiegeschenken als warmup warmitup warmers cooldown koelers dynabee powerball gyro's, flexmeter polsbescherming Trapido uw tricycle voor fit en fun geen gewone step of scooter maar....

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