<%
Set ObjRs = Server.CreateObject ("ADODB.Recordset" )
'Sql ile tablodan hit alanını buluyoruz
strSQL = "Select * From uyeler where hit"
ObjRs.Open strSQL,strObj,1,3
ObjRs = ObjRs("hit" )
'Bu altta görmüş olduğunuz kod sayesinde hit alanından gelen sayıları replace fonksiyonu ile image' e çeviriyoruz.
'ObjRs,"1" ise images' e gir ve 1.gIf i koy demiş oluyoruz.
'Aynı mantık alttaki işlemler içinde geçerlidir.
ObjRs = Replace(ObjRs,"1" ,"<img src=" "images/1.gif" ">" )
ObjRs = Replace(ObjRs,"2" ,"<img src=" "images/2.gif" ">" )
ObjRs = Replace(ObjRs,"3" ,"<img src=" "images/3.gif" ">" )
ObjRs = Replace(ObjRs,"4" ,"<img src=" "images/4.gif" ">" )
ObjRs = Replace(ObjRs,"5" ,"<img src=" "images/5.gif" ">" )
ObjRs = Replace(ObjRs,"6" ,"<img src=" "images/6.gif" ">" )
ObjRs = Replace(ObjRs,"7" ,"<img src=" "images/7.gif" ">" )
ObjRs = Replace(ObjRs,"8" ,"<img src=" "images/8.gif" ">" )
ObjRs = Replace(ObjRs,"9" ,"<img src=" "images/9.gif" ">" )
ObjRs = Replace(ObjRs,"0" ,"<img src=" "images/0.gif" ">" )
'Burada ise sayıyı image olarak yazdırıyoruz.
Response.Write ObjRs
%>