Teşekkürler verdiğiniz bilgi doğrultusunda kodları aşağıdaki gibi düzenledim ama yine çalışmadı. Sizce sorun nerede?

<% 
dim i
For i=1 to 10


Set gor = Server.CreateObject("ADODB.Recordset")
sor = "Select * from tblHaberler order by RAND() LIMIT 10"
gor.Open sor,adoCon,1,3

Randomize
rastgele = Int((kdGenel.RecordCount * Rnd)+ 0)
Randomize
fontbuyukluk=  Int((5 * Rnd)+ 1)

' select a random number between one and five 
randomize
g_random=int(rnd*13)+1
select case g_random
case "1"
 color ="#FF0000"
case "2"
 color ="#3CB32F"
case "3"
 color ="#8689F2"
case "4"
 color ="#0000C0"
 case "5"
 color ="#000000"
 case "6"
 color ="#FF40FF"
 case "7"
 color ="#FF0000"
 case "8"
 color ="#C0C000"
 case "9"
 color ="#65A1A3"
 case "10"
 color ="#004000"
 case "11"
 color ="#800080"
 case "12"
 color ="#7754C8"
case else
color ="#8374DC"
end select
kdGenel.Move(rastgele)
%>
<a href="<%=LinkVer("haber", kdGenel("haberID"), kdGenel("baslik"), KategoriBul(kdGenel("kategori")))%>"><font face="Arial" size="<%=fontbuyukluk%>" color=<%=color%>><%=kdgenel("baslik")%> </font></a>
 <% next 
kdgenel.Close
Set kdgenel = Nothing
%>