Code:
Dim arrData1(13,5)
	arrData1(0,1) = MonthName(12, true)&"-"&Right(PreYear-1,2)


	For i=1 to 12
	arrData1(i,1) = MonthName(i, true)&"-"&Right(PreYear,2)
	next

For i=0 to UBound(arrData1)-1
        strXML0 = strXML0 & "<category name='" & arrData1(i,1) & "' />"
	Next