---
title: "Randomize"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8709-randomize"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Lina"
published: "2001-03-27T07:41:00.000Z"
updated: "2001-03-27T08:04:00.000Z"
replies: 3
views: 233
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/8709-randomize"
---

# Randomize

## #1 — Lina, 2001-03-27T07:41Z

Ojojoj... Nu funkar det nästan!

Håller fortfarande på med ett randomscript som skall lista bilder på medlemmarna i en community. 

När jag kör scriptet funkar det inte riktigt som det ska... Jag vill ha upp 5 olika bilder men när jag nu kör mitt script får jag bara upp tre....

Koden ser ut som föjer:

```
<%
Dim intRandomTowerPerson, intCell, strSQLRandomTowerPerson, rsRandomTowerPerson
Dim SQLCount, RSCount, personnr, x, i

Response.Write("<table WIDTH='325' BORDER='0' CELLPADDING='2' Align='center'>")
Response.Write("<tr>")

strSQLRandomTowerPerson = "SELECT HulePersonID, Image, ImageActive FROM Hulen WHERE ImageActive = 'yes';"
Set rsRandomTowerPerson = Conn.Execute(strSQLRandomTowerPerson)

x=0
Do until rsRandomTowerPerson.EOF
	x=x+1
rsRandomTowerPerson.MoveNext
Loop

Randomize
	personnr=int(rnd*x)
	rsRandomTowerPerson.MoveFirst
	rsRandomTowerPerson.Move personnr

i = 1
for i = 1 to 5

	Response.Write("<TD Align='left'><A href='publicRoom1.asp?ID=" & rsRandomTowerPerson("HulePersonID") & "'>")
	Response.Write("<Img Src='../../../userImages/" & rsRandomTowerPerson("Image") & "'width='75' height='100' hspace='10' Border='0'></A></TD>")

rsRandomTowerPerson.movenext
if rsRandomTowerPerson.eof then rsRandomTowerPerson.movefirst

Response.Write("</tr><tr>")
i = i+1

Next

rsRandomTowerPerson.Close
Set rsRandomTowerPerson = Nothing

Response.Write("</tr>")
Response.Write("</table>")
%>
```

Är det någon som kan se varför jag bara får upp tre bilder istället för fem som det var tänkt???

Säg nu inte att det inte finns fler i databasen för det gör det!
Jag vet att random-scriptet funkar för det är olika bilder som kommer fram varje gång....

Snälla hjälp mig!

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

## #2 — jonne, 2001-03-27T07:49Z

```
Response.Write("</tr><tr>")
i = i+1

Next
```

Bör vara:

```
Response.Write("</tr><tr>")
Next
```

..eftersom du stegar framåt med next så behöver du inte ++

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

## #3 — Lina, 2001-03-27T07:57Z

Tack så himla mycket Jonne... Nu funkar det ju!

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

## #4 — jonne, 2001-03-27T08:04Z

Vassego :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8709-randomize