Aşağıdaki kodu başka bir bölüm kullanıyorum çok güzel çalışıyor. Ama rastgele veri çekmekte sorun yağıyorum:S

	<%
	kdMenu.Open "SELECT * FROM tblVKategoriler ORDER BY sira ASC, Kategori ASC", adoCon, 1, 3
	If Not kdMenu.Eof Then
		Do While Not kdMenu.Eof %>
			<li><a href="<%=LinkVer("videolar", kdMenu("VKat_ID"), "1", kdMenu("Kategori"))%>"><%=kdMenu("Kategori")%></a></li><%
			kdMenu.Movenext
		Loop
	End If
	kdMenu.Close %>