<%
function FormatReArray(str)
dim temp,sindex,temp1
temp=str&","
temp1=split(temp,",")
for sindex=0 to ubound(temp1)
if temp1(sindex)<>"" then
temp=replace(temp,temp1(sindex)&",","")
temp=temp&temp1(sindex)&","
end if
next
FormatReArray=left(temp,len(temp)-1)
end function

Response.Write(FormatReArray("1,2,3,4,3,2"))
%>