Indtastning i database og random visning

Hej

Du laver en connect til din database som indeholder citaterne:
myConnStr = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\"&Server.MapPath(\".\\DIN_FIL.mdb\")

Så åber du et record set med en SQL sætning som vælger alle dine records:
strSQL = \"SELECT * FROM randomTabel\"
rs.Open strSQL, myConn, 3, 1

Find antal poster i tabellen.
rndMax = CInt(rs.RecordCount)

Beregn et tilfældigt nummer:
  Randomize
  rndNumber = Int((RND * rndMax)) 

Flyt til den tilfældigt valgte record og udskriv:
  rs.Move rndNumber \'Flyt til den valgte record
  Response.Write rs(\"visDetteTekst\") \'udskriver


Hele eksempel pakket lidt pænt ind i HTML kode:

<html>
<head>
<title>Vis Random</title>
</head>
<body>
<%
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConnStr = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\"&Server.MapPath(\".\\dbfil.mdb\")
myConn.Open (myConnStr)
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM randomText\"
rs.Open strSQL, myConn, 3, 1
rndMax = CInt(rs.RecordCount)
if rndMax > 0 then
  Randomize
  rndNumber = Int((RND * rndMax))  \'Find et random nummer
  rs.Move rndNumber \'Flyt til den valgte record
  Response.Write rs(\"visDetteTekst\") \'udskriver her
end if
rs.Close
Set rs = Nothing
myConn.Close
Set myConn = Nothing
%>
</body>
</html>