Banners

Tjena... sitter här och håller på med att försöka ordna så att de banners jag har i min databas ska slumpas fram. Hur gör man det?

http://www.webforum.nu/search.php?s=&action=showresults&searchid=46265&sortby=lastpost&sortorder=descending

hmmm... får felmess:

Microsoft VBScript runtime error '800a0009' 

Subscript out of range: '[number: 1]' 

/banners/banner.asp, line 33

<%
Dim maxNumber,strSQL,rs,cnt,rndNumber,i,found
maxnumber = 5
strSQL = "SELECT link FROM banner "
set rs = Databas.execute(strSQL)
if not rs.eof then
arr = rs.getrows()
items = ubound(arr,2) + 1
if items < maxNumber then maxNumber = items
dim choosen()
redim choosen(maxnumber-1)
randomize
cnt = 0
Do Until cnt = maxnumber
RndNumber = Int(Rnd * items)
found = false
for i = 0 to cnt - 1
if choosen(i) = rndNumber then
found = true
exit for
end if
next
if not found then
choosen(cnt) = rndNumber 
cnt = cnt + 1
response.write arr(0,rndNumber) & "<br>" & arr(1,rndNumber) & "<br>"
end if
loop
else
response.write "?"
end if

rs.Close
Set Rs = Nothing
connection.close
set connection = nothing
%>

Du kan aldrig komma till index 1:

arr(1,rndNumber)

eftersom index börjar på 0 och du bara har ett fält i din sql-fråga

Vad är det tänkt att det skulle vara i: arr(1,rndNumber)

Den arrayen är väl tom?