dim allnum,i,j allnum = ubound(arr) for i = 0 to (allnum/cols) Response.write (VbTab &"
" & VbNewLine) for j = 0 to (cols-1) ij = (i*cols+j) Response.write (VbTab & VbTab &"
") if ij <= allnum then if len(functionstr) > 0 then execute(""& functionstr &"(arr(ij))") else Response.write (arr(ij)) end if else Response.write (" ") end if Response.write ("