Merhabalar.

Sayfamda kayıtları listeliyorum.

Set rs = conn.execute("Select * From tbl_deneme")

list = 0
Do while not rs.EOF
list = list + 1

If list = 5 Then
Response.Write "<div class=""clear""></div>"
list = 0
End If

rs.MoveNext : Loop
rs.Close : Set rs = Nothing

yapmak istediğim şu; kayıtların en solunda 300x250 reklam göstermek.

Örnek