sql

strdb = \"select * from db where id like \"\'\"Int(Rnd*10000)+1\"\'\"   
10000 skiftes ud med det antal poster der er der er 

kan du skrive hele connectionen til databasen ?

hvilken database ?

Set wdbac = Server.CreateObject(\"ADODB.Connection\")
    STRACC = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"dbase.mdb\")
    wdbac.Open  STRACC

    set rando = wdbac.Execute(\"SELECT * FROM db WHERE id = \"\'\"Int(Rnd*10000)+1\"\'\")
        if not rando.eof
            response.write rando(\"id\")
        end if
    wdbac.Close
set wdbac = nothing

den her virker hvis din database ligger isammen folder og hedder dbase.mdb
i tabellen db skal der være et felt der hedder ID

denne fejl:

Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected \')\'
/nyhed/citat.asp, line 6, column 60
set rando = wdbac.Execute(\"SELECT * FROM logins WHERE id = \"\'\"Int(Rnd*4)+1\"\'\")
-----------------------------------------------------------^

set rando = wdbac.Execute(\"SELECT * FROM logins WHERE id = \"(Int(Rnd*4)+1)\")

hmm det virker heller ikke... den kommer med sammenfejl..

men hvis jeg skriver:

set rando = wdbac.Execute(\"SELECT * FROM logins WHERE id = \'Int(Rnd*10000)+1\'\")

kommer den med denne fejl :

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.
/nyhed/citat.asp, line 6

der var et par gåseøjne for meget:
set rando = wdbac.Execute(\"SELECT * FROM logins WHERE id = \"(Int(Rnd*4)+1))

denne fejl:

Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: \'[string: \"SELECT * FROM logins\"]\'
/nyhed/citat.asp, line 6

hvis du bare kører denne hvad siger den så?
set rando = wdbac.Execute(\"SELECT * FROM logins\")

den skriver et 1 tal og den skifter ikke tal hvis man refreser

har du ikke ICQ.. eller er på IRC.. enten UnderNet eller QuakeNet

der var også glemt et & tegn
set rando = wdbac.Execute(\"SELECT * FROM logins WHERE id = \"&(Int(Rnd*4)+1))

du skal forresten huske at skrive Randomize
før du bruger rand dvs hele koden kommer til at se således ud:
Set wdbac = Server.CreateObject(\"ADODB.Connection\")
    STRACC = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"dbase.mdb\")
    wdbac.Open  STRACC

set rando = wdbac.Execute(\"SELECT * FROM logins WHERE id = \"&(Int(Rnd*4)+1))
        if not rando.eof
            response.write rando(\"id\")
        end if
    wdbac.Close
set wdbac = nothing

hov nu glemte jeg Randomize igen

har du MSN? twm@twm.dk

ellers så send mig din DB så skal jeg nok få det til at virke

hmm 2 sek henter det lige.. så snakkes vi der

den her kode virker:
<%
Randomize

Set wdbac = Server.CreateObject(\"ADODB.Connection\")
    STRACC = \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.Mappath(\"dbase.mdb\")
    wdbac.Open  STRACC

set rando = wdbac.Execute(\"SELECT * FROM logins WHERE id = \"&(Int(Rnd*4)+1))
        if not rando.eof then
            response.write rando(\"data\")
        end if
    wdbac.Close
set wdbac = nothing


%>
nu har jeg testet den:
http://www.twm.dk/test/test.asp