Yazıyı Tersten Yazdırma

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


%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

yazıyı tersten yazdırma