<%
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
%>
****************************************************************
Do - While Döngüsü
Açiklama : Bu döngü''''de kayit sonuna gelene kadar siralama yapabilirsiniz.
<%
do while not rs.eof
' Ara Kodlar buraya yazilacak!
rs.movenext
loop
%>...
<?
$i=date("j");
$soz1="Bütün büyük yanlışların altında gurur yatar.<br>(Ruskin)";
$soz2="Karanlığa küfredeceğine bir mum yak.<br>( Conficius )";
$soz3="Silgi kullanmadan resim çizme sanatina hayat denilmektedir.<br>(John Christian)";
$soz4="Ne kadar bilirsen bil; söylediklerin karsindakinin...
Bu site, giriş yapmanız veya kayıt olmanız durumunda deneyimlerinizi uyarlamak ve içeriği kişiselleştirmek için çerezler kullanır.
Bu siteyi kullanarak, bahsettiğimiz çerez kullanımını kabul etmiş olursunuz.