Slumptal

Varför fungerar inte följande kod för att slumpa fram en post:

<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb"))

Set nbr = Connect.Execute("SELECT Count(*) AS antal FROM tabell1")

Randomize
Set RecSet = Server.CreateObject("ADODB.Recordset")

slumptal = Int(Rnd*nbr("antal"))

Visa = "Select * from tabell1 WHERE ID = slumptal"
RecSet.Open Visa

%>

<a href="random.asp?ID=<% =RecSet("ID") %>">Slump</a

RecSet.Close %>

------------------
http://www.gratistavlingar.com

[Redigerat av kristoffer den 05 feb 2001]

slumptal = Int(Rnd*cint(nbr("antal")))

kanske?

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

Ändra till detta också

Visa = "Select * from tabell1 WHERE ID = " & slumptal

------------------
essentitia preter non sans multiplicandum

Funkar fortfarande inte.
HTTP 500 - Internt serverfel

------------------
http://www.gratistavlingar.com

stäng av friendly error messages i ie, så du får se vad det är för fel!

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>

ADODB.Recordset error '800a0e7d'

Operation is not allowed on an object referencing a closed or invalid connection.

------------------
http://www.gratistavlingar.com

Server.MapPath("db.mdb"))

testa: Server.MapPath("\db.mdb"))

------------------
Never underestimate your opponents.

Förklaring till ovanstående:

server.mappath("\")

ger "C:\www\kund\"

server.mappath("")

ger felmeddelande och det samma gäller tyvärr även för server.mappath("db.mdb")

------------------
Never underestimate your opponents.

ehhh, du har missat att ange vilket connection du ska använda dig av för att öppna recsetet:

RecSet.Open Visa

Borde stå ngt liknande:

RecSet.Open Visa, objConn

cya,

------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function