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%>
Veri çekilecek alanlar
<%
ListelenecekAdet=ListelenecekAdet+1
If ListelenecekAdet mod ListelenecekAdet = 0 Then
Response.Write ""
End If
End if
rs.MoveNext
Loop
End If
rs.Close %>
Umarım başkaların da işine yarar...