Slumptal

8 svar · 233 visningar · startad av kristoffer 5 feb. 2001

kristofferMedlem sedan juni 20001 257 inlägg

Trådstart5 feb. 2001 20:51#1

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 %>

@ndersMedlem sedan juni 200032 967 inlägg

5 feb. 2001 20:57#2

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

kanske?

LarsGMedlem sedan dec. 200012 464 inlägg

5 feb. 2001 21:29#3

Ändra till detta också

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

kristofferMedlem sedan juni 20001 257 inlägg

5 feb. 2001 22:20#4

Funkar fortfarande inte.
HTTP 500 - Internt serverfel

@ndersMedlem sedan juni 200032 967 inlägg

6 feb. 2001 05:45#5

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

kristofferMedlem sedan juni 20001 257 inlägg

6 feb. 2001 08:19#6

ADODB.Recordset error '800a0e7d'

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

EclipseMedlem sedan juli 20003 825 inlägg

6 feb. 2001 08:51#7

Server.MapPath("db.mdb"))

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

EclipseMedlem sedan juli 20003 825 inlägg

6 feb. 2001 08:54#8

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")

PatrikBMedlem sedan mars 20002 836 inlägg

6 feb. 2001 12:17#9

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,