<% Dim a(20),text,boyut text= request.querystring("gelentext") boyut=len(text) i=1 do while i<= boyut a(i)=mid(text,i,1) i=i+1 loop response.write text & "<br>" i=boyut do while i>= 1 response.write a(i) i=i-1 loop %>