I'm new to Multidimentional Array's and so I'm obviously not getting something

On my website I want to divide a list of servers into pages - 5 a page. So I thought it would be best to use a multidimentional array. Array(x,y) - xage and y:servers

SplitSearch = split("Server1,Server2,Server3,Server4,Server5,Server6,Server7,Server8,Server9,Server10,Server11,Server12,Server13")

ArrayCounter = 0
ArrayPage = 0

dim PageArray

NumberPerPage = 4

for each x in SplitSearch
If ArrayCounter = NumberPerPage then
ArrayPage = ArrayPage + 1
ArrayCounter = 0
End if
if x <> "" then
ReDim PageArray(ArrayPage,ArrayCounter)
PageArray(ArrayPage,ArrayCounter) = x
' response.write(PageArray(ArrayPage,ArrayCounter)&"<br/>")
ArrayCounter = ArrayCounter + 1
end if


Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 1]'
The response.write(PageArray(ArrayPage,ArrayCounter)&"<br/>") works inside the loop. But it doesn't work outside of the loop.