פרסומת אקראית

ניסיתי לעשות סקריפט לפרסומות אקראיות אבל הבעיה הוא שהוא מציג תמיד את אותה פרסומת
הפרסומת שבפקודת ברירת מחדל משוה יכול להגיד לי מה הבעיה? מה צריך לשנות? הנה הקוד
שיצרתי


<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("———.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")

sqlSTRING = "SELECT * FROM ——— " &_
" WHERE DateStart < #" & day(now) & "/" & month(now) & "/" & year(now) & "#" &_
" AND DateEnd >= #" & day(now) & "/" & month(now) & "/" & year(now) & "# &_
" AND HourStart < #" & formatDateTime(now,4) & "#" &_
" AND HourEnd >= #" & formatDateTime(now,4) & "#"

Rs.open sqlSTRING,conn,1,1

WeightString = ""
Weight = 0

if not rs.EOF then
for indexBanner = 1 to rs.RecordCount

For indexWeight = 0 to Rs("Weight")

WeightString = WeightString & indexBanner & ","

Next
rs.MoveNext

Next
WeightArray = split(WeightString,",",-1,1)

Randomize

chosen = int(ubound(WeightArray) * Rnd)

chosen = WeightArray(chosen)

rs.moveFirst
rs.Move(cint(chosen)-1)

BannerImage = rs("BannerImage")
BannerURL = rs("BannerURL")

else
          BannerImage = "55.jpg"
BannerURL = "http://www.asssssssassqas.co.il";  
end if
%>

<a href="<%=BannerURL%>"><img src='<%=BannerImage%>' border="0"></a>

השורות המודגשות זה השורה של התמונה שהוא תמיד מראה לי