<% 
dim i
For i=1 to 10 %>
 <%
'db bağlantısı buraya
 
set rs = server.createobject("ADODB.Recordset")
sql = "select * from [ETIKETLER] where [ID] =" & ID 
rs.open sql,bag,1,3
 
Randomize
fontbuyukluk=  Int((5 * Rnd)+ 1)
%>
 
 <%
' renk seçimi
randomize
g_random=int(rnd*13)+1
select case g_random
case "1"
 color ="#FF0000"
 etiket = rs("ETIKET1")
case "2"
 color ="#3CB32F"
 etiket = rs("ETIKET2")
case "3"
 color ="#8689F2"
 etiket = rs("ETIKET3")
case "4"
 color ="#0000C0"
 etiket = rs("ETIKET4")
 case "5"
 color ="#000000"
 etiket = rs("ETIKET5")
 case "6"
 color ="#FF40FF"
 etiket = rs("ETIKET6")
case else
color ="#8374DC"
etiket = rs("ETIKET1")
end select
%>
 
<a href="bilgi_arama.asp?KELIME=<%=etiket%>"><font size="<%=fontbuyukluk%>" color="<%=color%>" ><%=etiket%></font></a>
<% next %>
<%
bag.Close
Set bag = Nothing
%>