Udtræk tilfældig post

strSQL = \"SELECT * FROM tabelnavn\"
set rs = Conn.Execute(strSQL)

Response.Write rs(\"kollonnenavn\")

TILFÆLDIG POST :o)

-Anders

Set conn = Server.CreateObject(\"ADODB.Connection\")
strConn = \"Driver={Microsoft Access Driver (*.mdb); DBQ=\" & Server.MapPath(\"sti\")

strSQL = \"SELECT * FROM tabelnavn\"
set rs = Conn.Execute(strSQL)

Response.Write rs(\"kollonnenavn\")

hmm... hvad mener du så? *G*

er der så ikke en funktion i VBScript som vælger et tilvældig tal ? -så brug den... :-)

sorry..men kan men kan ikke lige helt huske hvad den hedder :-(

hvis en tabel indeholder feltet date, og dato indeholder 10 forskellge dato, så skal den vælge en tilfældig dato, af dem i databasen..

-Anders

Jeg bruger en blanding af ASP og JavaScript, til at trække en random sætning ud af en quote database..

Først tæller vi hvor mange der er:

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"m00h.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
SQL = \"SELECT count(id) as totalquotes FROM quote\"
Conn.Open DSN

Set rs = Conn.Execute(SQL)

randomize()
strKeyword = int(rnd*rs(\"totalquotes\"))+1

... nu ved vi hvor mange der er .. så skal vi hente en random frem...

  strKeyword = hvorfor
  strKeyword = Replace(strKeyword,\"\'\",\"\'\'\")

DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"m00h.mdb\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
SQL = \"SELECT * FROM quote WHERE\"
SQL = SQL & \" (ID LIKE \'%\" & strKeyword & \"%\')\"
Conn.Open DSN

Set rs = Conn.Execute(SQL)

If Not (rs.BOF Or rs.EOF) Then
        Response.write \"<center>\" & rs(\"m00h\") & \"</center>\"
        rs.MoveNext
End If

Conn.Close
Set Conn = Nothing


... noget i den retning, det kan sikkert gøres smartere.. men det er en løsning..

Jeg kogte det sammen til noget mere simpelt.... du hjalp mig på vej...

-Anders

Er glad for jeg ku\' hjælpe :)