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]
[Redigerat av anno den 13 jun 2001]