Tekrar Merhaba...
Sitenize ana sayfada bulunan "Son Eklenen Özel Firmalar" istediğiniz gibi raslantsal yaptım lakin veri çektiğiniz bir reklam bölümü göremedim.
Son Eklenen Özel Firmalar bölümünde yazdığım kodlar aşağıdaki gibidir:




<%
sorgum=" Bu alana sorgunuzu belirtin"
Rs.Open Sorgum, Baglantim, 1, 3
if rs.eof or rs.bof then

Else
toplam = rs.RecordCount
Randomize()
sinirlar = toplam
rasgele = sinirlar * Rnd()
rasgele = rasgele
If rasgele=0 Or rasgele="" Then rasgele=1 End if
git = Int(rasgele)
rs.Move(git)
%>


<%do while not rs.eof
if rs.eof then exit do
if ListelenecekAdet< 10 then%>



<%
ListelenecekAdet=ListelenecekAdet+1
If ListelenecekAdet mod ListelenecekAdet = 0 Then
Response.Write ""
End If
End if

rs.MoveNext
Loop

Veri çekilecek alanlar

End If
rs.Close %>


Umarım başkaların da işine yarar...