Yazıyı Tersten Yazdırma başka biyerde buLamazsın :)

[Cihat Şeker]

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


 %>