---
title: "Slumpare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9989-slumpare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Ricki"
published: "2001-06-11T12:31:00.000Z"
updated: "2001-06-11T13:03:00.000Z"
replies: 3
views: 247
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/9989-slumpare"
---

# Slumpare

## #1 — Ricki, 2001-06-11T12:31Z

Tjenare,
Jag ska bygga ett script som slumpar fram en rolig historia? Vad är bäst, ska jag lägga historierna i en textfil eller databas?

Hur bygger man en slumpare??

Tack på förhand :)

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

## #2 — Rossifumi, 2001-06-11T12:36Z

Databas skulle jag välja

```

'Räkna hur många historier

Randomize
Tal = Int(Rnd * " & antalHistorier & ")

mySQL = "SELECT * FROM historier WHERE ID = " & Tal
Set objRS = objConn.Execute(mySQL)

If objRS.EOF Then

Randomize
Tal = Int(Rnd * " & antalHistorier & ")

mySQL = "SELECT * FROM historier WHERE ID = " & Tal
Set objRS = objConn.Execute(mySQL)

Else

Response.Write objRS("historia")
End If
```

Mycket förenklad kod som också kräver att man inte har tagit bort något i tabellen, men den kanske funkar :)

OK Ser nu att den inte funkar, men testa lite :r ;)

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

## #3 — PatrikB, 2001-06-11T12:55Z

> Randomize
> Tal = Int(Rnd \* " & antalHistorier & ")
>
> mySQL = "SELECT \* FROM historier WHERE ID = " & Tal

vilket endast funkar om alla historier(poster) i databasen ligger efter varandra. Skulle det deletas ngn post så att det blir ett "glapp" på räknaren så kommer det att genereras fel beroende på vilket tal som slumpas ut.

Det man kan göra är:

```
Randomize

strSQL = "SELECT Historia FROM historier"
Set objRS = objConn.Execute(strSQL)
	If Not objRS.EOF Then
		arrHistorier = objRS.GetRows
	End If
	objRS.Close
Set objRS = Nothing

If IsArray(arrHistorier) Then

	intTal = Cint(Rnd * UBound(arrHistorier,2))
	strHistoria = arrHistorier(0,intTal)
Else
	strHistoria = "Not available."
End If

Response.Write strHitoria
```

då spelar det ingen roll om man skulle deleta ngn historia.

cya,
PatrikB

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

## #4 — Rossifumi, 2001-06-11T13:03Z

Vilket jag också sa, och därför la till min patetiska IF-sats ;) :e

Lyssan på PatrikB istället :e

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9989-slumpare