Slumpa poster från databaser

3 svar · 178 visningar · startad av anno 13 juni 2001

annoMedlem sedan nov. 2000213 inlägg

Frågan13 juni 2001 13:55#1

Har gjort en liten snurra som slumpar ut en fråga från en databas, men nu vill jag slumpa ut 5 frågor och det måste vara unika frågor som kommer ut.

så här har jag skrivit nu:

  <%
Dim strSQL, Conn
strSQL = "Select fraga from tblSlumper"
Conn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("slump.mdb")

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, Conn, 3

Dim intRnd
Randomize
intRnd = (Int(RND * rs.RecordCount))

rs.Move intRnd

Response.Write rs("fraga")

rs.Close
Set rs = Nothing
%>

men nu vet jag inte hur jag ska gå vidare, någon som vet eller har något eget exempel.

------------------
/Andreas

[Redigerat av anno den 13 jun 2001]

@ndersMedlem sedan juni 200032 967 inlägg

13 juni 2001 14:09#2

vad är problemet?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>

annoMedlem sedan nov. 2000213 inlägg

13 juni 2001 14:14#3

Problemet är att jag inte vet hur man skriver ut 5 slumpade frågor av mina totalt 20 frågor, alla unika. Det som jag gjort nu skriver bara ut en fråga.

------------------
/Andreas

@ndersMedlem sedan juni 200032 967 inlägg

13 juni 2001 20:55#4

lägg en liten loop runt, typ

for i = 1 to 5
...
next

just slumpning har varit uppe åtskilliga gånger bara de senaste dagarna, så leta lite så hittar du nog trådar som kan hjälpa dig.

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
can i borrow your goat?
</A>