Puana göre yıldız çıkartmak için ;
<%
'Burada kayıt setimizi açıyoruz.
Set ObjRs = Server.CreateObject ("ADODB.Recordset" )
'Sql ile tablodan hit alanını seçiyoruz
strSQL = "Select * From uyeler where hit"
ObjRs.Open strSQL,strObj,1,3
'İşte önemli olan koda geldik
'Bu kod hit alanında 0 ve 50 arası olan sayıları bul dememizi sağlıyor.
If ObjRs(hit)>=0 and ObjRs(hit)<50 Then
'Bunuda yaptık şimdi aşağıdaki kodda yıldızı çıkartıyoruz
'Ben oraya bir defa <img src="yildiz.jpg" > yaptım yanına bir tane daha koyarsanız <img src="yildiz.jpg" >
'iki yıldız çıkmış olacak
%>
<center><img src="yildiz.jpg"></center>
<center><font face=verdana size=1 color=#00000>(Puan:<%=ObjRs("hit" ) %>)</font></center>
<%
Else
'Else yukarıdaki işlemler doğru ise yani 0'dan 50 ye kadar kayıt varsa yukarıdakileri gösterecek.
%>
<%End If
'Yukarıda açtığımız if' i kapatıyoruz.
%>
<%If ObjRs(hit)>=51 and ObjRs(hit)<100 Then
'Burada ise yine aynı mantıkta 51 ile 100 arası olanları alıyoruz.
'Böyle olursada iki yıldız çıkarsın.
%>
<center><img src="yildiz.jpg"><img src="yildiz.jpg"></center>
<center><font face=verdana size=1 color=#00000>(Puan:<%=ObjRs("hit" ) %>)</font></center>
<%
Else
End If
%>
