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
Comment