• code snippets
  • all code snippets/
  • popular code snippets/
  • your code snippets
• extras
• blog
• about snipplr

• Big /
• Small

Posted By

krisdb on 03/09/07

Tagged

ASP

Versions (?)

03/09/07 05:47am

 / Published in: ASP

 

Sub PrintArray(arr)
  Dim ColNmbr,RowNmbr
  Response.Write "<table border=""1"" cellspacing=""0"">"
  For RowNmbr = 0 to ubound(arr)
    Response.Write "<tr>"
    For ColNmbr = 0 to (Ubound(arr,2) - 1)
        Response.Write "<td>" &arr(RowNmbr,ColNmbr) & "</td>"
    Next
    Response.Write "</tr>"
  Next
  Response.Write "</table>"
End Sub

Report this snippet   Tweet