<%
yazi = Array("Bu","Şekilde","Yapılır")
for i=0 to ubound(yazi)
yeniyazi = yeniyazi&yazi(i)&space(1)
next ' burada unserialize ettik
yeniarray = split(yeniyazi," ") 'burada serialize ettik...
%>

umarım işini görür...