<% Set RS = DBBaglanti.ExeCute("Select * FROM tbletiketler ORDER BY goruntulenme DESC" ) if Not RS.Eof Then %> <embed type="application/x-shockwave-flash" src="tagcloud.swf" id="tagcloud" name="tagcloud" bgcolor="#EAE680" quality="high" flashvars="tcolor=0x000000&mode=tags&distr=true&tspeed=150&tagcloud=<tags> <% Do While Not RS.Eof %> <a href='icerik.asp?icerik_ID=<%=RS("icerik_ID" )%>' style='11'><%=RS("baslik" )%></a> <% RS.MoveNext Loop %> </tags>" allowscriptaccess="always" width="200" height="180"> <% end if RS.Close Set RS = Nothing %>