Ciao matpirata,

potresti togliere i puntoevirgola iniziale e finale e poi splittare su ;
codice:
str=";1;456;54;98;"
arr = Split(mid(str,2,Len(str)-2),";")
for i=LBound(arr) to UBound(arr)
  Response.Write arr(i) & "
"
next