Slumpare

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 :)

------------------
Hälsningar Ricki
revolution | mail

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 ;)

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda

[Redigerat av Rossifumi den 11 jun 2001]

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

------------------
*Det jämnar ut sig sa han som sket i byxan och satte sig ned*

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

Lyssan på PatrikB istället :e

------------------
"When the 500 isn't right, you're in hell, when a Superbike isn't right, it's ok"
Valentino Rossi, Nastro Azurro Honda