Array problem

Hej

Denna kod listar 3 poster från array:en och byter sen till ny rad. Problemet är att den vägrar ta med den sista posten från array:en.

Någon som sitter på en lösning?

<TABLE border="0" cellspacing="2" cellpadding="3" width="600">
<TR>
<TD colspan="3" align="center">Kategorier</TD>
</TR>
<% 
If IsArray(arrCat) Then
a = 0
Do Until a = UBound(arrCat,2)
Response.Write(vbTab & "<TR>" & vbCrLf) 
For b = 1 To 3 
Response.Write(vbTab & vbTab & "<TD>")
If Not a = UBound(arrCat,2) Then
Response.Write("<A href=""ads.asp?category=" & arrCat(0,a) & """>" & arrCat(1,a) & "</A>&nbsp;(" & arrCat(2,a) & ")")
a = a + 1
Else
Response.Write("&nbsp;")
End If
Response.Write("</TD>" & vbCrLf)
Next
Response.Write(vbTab & "</TR>" & vbCrLf) 
Loop
End If %>
</TABLE>

<TABLE border="0" cellspacing="2" cellpadding="3" width="600">
<TR>
<TD colspan="3" align="center">Kategorier</TD>
</TR>
<% 
If IsArray(arrCat) Then
a = 0
Do Until a = UBound(arrCat,2) + 1
Response.Write(vbTab & "<TR>" & vbCrLf) 
For b = 1 To 3 
Response.Write(vbTab & vbTab & "<TD>")
If a <= UBound(arrCat,2) Then
Response.Write("<A href=""ads.asp?category=" & arrCat(0,a) & """>" & arrCat(1,a) & "</A> (" & arrCat(2,a) & ")")
a = a + 1
Else
Response.Write(" ")
End If
Response.Write("</TD>" & vbCrLf)
Next
Response.Write(vbTab & "</TR>" & vbCrLf) 
Loop
End If %>
</TABLE>

------------------
essentitia preter non sans multiplicandum

Man hinner ju knappt ställa en fråga innan den blir besvarad!

Tack LarsG, funkar perfekt!