<% 
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 
 
 
 %>