script som visar ett slumpvis utvalt ordspråk

Så här gör jag

<% 
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=sökväg till databasen"

SQL = "Select * FROM citat"
RStemp = UBOUND(oConn.Execute(SQL).GetRows(),2)+1 

Randomize
post = Int(RND*RStemp)
Set RS = oConn.Execute(SQL)
For s = 1 to post
RS.MoveNext
Next
%>
<% =RS("Citat") %>
<% Rs.Close
Set Rs = Nothing %>

gör det själv så lär du dig samtidigt

en databas i access kan se ut så här

CITATCOLL
-Pk_CitatId (räknare, primärnyckel)
-InsertDate (datum)
-CitatFrom (text, vem som sa det)
-CitatContent (pm, vad han/hon sa)

sen är det bara att söka på slumpa i detta forum så hjälper vi dig :)

du råkar inte ha databasen åxå , så jag slipper göra en egen??hehe

är du lat :e

ERKAerka: OK, ska försöka

erka jag höll på att skriva svar til andreas_lindh, så jag såg inte ditt inlägg

ok, nu har jag gjort databasen med de olika kolumnerna...

ska jag bara avnända att ta fram dom då lr??

<% 
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=sökväg till databasen"

SQL = "Select * FROM citat"
RStemp = UBOUND(oConn.Execute(SQL).GetRows(),2)+1 

Randomize
post = Int(RND*RStemp)
Set RS = oConn.Execute(SQL)
For s = 1 to post
RS.MoveNext
Next
%>
<% =RS("Citat") %>
<% Rs.Close
Set Rs = Nothing %>

Ja,
du måste ange sökvägen till databasen.
Om den ligger i samma mapp kan du använda:

"driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("filnamn.mdb")&";"

Om du gjorde som erka skrev måste du också ändra RS("Citat") till RS("CitatContent") :)