w@rriorhckr
🏅Acemi Tasarımcı🏅
- Katılım
- 9 Şub 2009
- Mesajlar
- 37
- Tepkime puanı
- 1
<%
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
%>
:rofl::rofl::rofl:
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
%>
:rofl::rofl::rofl:
