Posted By

danfsmith on 08/04/11


Tagged

output reddot


Versions (?)

Print Array Half


 / Published in: ASP
 

Used when splitting array elements between two columns in HTML

  1. '************************************************************
  2. ' This function takes an array and prints out the first
  3. ' or second half of the array, defaulting to print the
  4. ' first half with one additional row if Length mod 2 is not 0.
  5. ' Prototyped by: Dan Smith
  6. '************************************************************
  7. Sub PrintArrayHalf(Array,ArrayHalf)
  8. If ArrayHalf = 1 Then
  9. MiddleBound = ceil(UBound(Array) / 2)-1
  10. For Counter = 0 to MiddleBound
  11. Response.Write (Array(Counter))
  12. Next
  13. ElseIf ArrayHalf = 2 Then
  14. LowerBound = ceil(UBound(Array) / 2)
  15. For Counter = LowerBound to UBound(Array)
  16. Response.Write (Array(Counter))
  17. Next
  18. End If
  19. End Sub

Report this snippet  

You need to login to post a comment.