Anasayfa
Galeri
Arama
Kayıt Ol
Giriş yap
BaRaN
Mesaj Sayısı : 873
Doğum tarihi : 02/12/89
Yaş : 34
Nerden : güneşin doğduğu yer(DOĞUBEYAZIT)
İş/Hobi : cep telefonu
Bilgi : <center><font color="blue"><marquee direction="left" style="background:white">Muradiye Forum Bilgi Paylaşım Platformu</marquee></font></center
Rep Gücü : 0
Rep Puan : 8
Kayıt tarihi : 20/12/08
Yazıyı Tersten Yazdırma
C.tesi Ocak 31, 2009 12:48 pm
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 & "
"
i=boyut
do while i>= 1
response.write a(i)
i=i-1
loop
%>
<%
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 & "
"
i=boyut
do while i>= 1
response.write a(i)
i=i-1
loop
%>
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz