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

Kayıt
7 Haziran 2008
Mesaj
533
Tepki
6
Kod:
<%
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


 %>
 
Yukarı Alt