---
title: "Banners"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45077-banners"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2002-06-02T20:31:45.000Z"
updated: "2002-06-02T20:57:49.000Z"
replies: 4
views: 198
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/45077-banners"
---

# Banners

## #1 — crisse6, 2002-06-02T20:31Z

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?

Permalänk: https://www.webforum.nu/p/45077

## #2 — solbulle, 2002-06-02T20:33Z

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

Permalänk: https://www.webforum.nu/p/688745

## #3 — crisse6, 2002-06-02T20:52Z

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
%>
```

Permalänk: https://www.webforum.nu/p/688755

## #4 — LAMP, 2002-06-02T20:57Z

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

Permalänk: https://www.webforum.nu/p/688756

## #5 — solbulle, 2002-06-02T20:57Z

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

Den arrayen är väl tom?

Permalänk: https://www.webforum.nu/p/688757

---

Tråden på webben: https://www.webforum.nu/amne/asp/45077-banners