<%set rsPost = ObjConn. Execute("SELECT TOP5 FROM weblog ORDER BY newid ")If rsPost. EOF Thenresponse. Write Elsewhile not rsPost. EOF%><a href="comments. asp?id=<%=rsPost %>"><%=rsPost %></a><br><%rsPost. MovenextWendEnd IfrsPost. Close Set rsPost = Nothing%> şyle veya <%set rsPost = ObjConn. Execute("SELECT TOP5 FROM weblog ORDER BY newid ")If rsPost. EOF and rsPost. BOF Thenresponse. Write Elsewhile not rsPost. EOF%><a href="comments. asp?id=<%=rsPost %>"><%=rsPost %></a><br><%rsPost. MovenextWendEnd IfrsPost. Close Set rsPost = Nothing%> veya direk normal randomize ile almaya çalış< %Set vt = Server. CreateObject vt. Open "DRIVER= ; DBQ=" & Server. MapPath set rs = server. createobject sql = "select top5 from tablo"rs. open sql, vt,1,3Randomizerastgele = Int +0)Rs. Move Response. write Rs %> veya da şu while wend yerine loop vs kullan aklıma başka gelmiyor :/ newid olayına hiç anlamadım zaten grmediğim bişey :|

Veritabanından rastgele kayıt alma olayı randomize ile yapılan sayı atamasının veritabanından karşılığını bulup çağırmaktır. Ama bazı kayıtlar zamanla silinmiş olsa kayıt bulunamadı hatası oluşacak. Bu hatayı almadan tablomuzdan rasgele kayıt nasıl alırız?! SELECT FROM tablo ORDER BY newid Yukardakini denedim ama Undefined function 'newid' in expression hatası alıyorum. Hata aldığım kodlar aşağıda...<%Set rsPost = ObjConn. Execute("SELECT TOP 5 FROM weblog ORDER BY newid ")If rsPost. EOF Thenresponse. Write Elsewhile not rsPost. EOF%><img src="../icons/cube. gif"> <a href="comments. asp?id=<%=rsPost %>"><%=rsPost %></a><br><%rsPost. MovenextWendrsPost. Close Set rsPost = NothingEnd If%>

sanırım accessde çalışmıyor newid olayı sql için geçerliben az nce deneme yaptım şyle bi fonksiyonla hallettim <%set rs = server. createobject sql = "select top 5 from menu order by Rnd(-(1000 id) Time "rs. open sql, baglanti,1,3while not rs. EOF%><%=rs %><br/><%rs. MovenextWendrs. Close Set rs= Nothing%> :|

teşekkürler pesimistzombie şimdi deniyorum...