Find tilfældig post

Hvilken database arbejder du med?

//>Rune

Hvis det er Access så brug denne:

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

Sql = \"Select count(*) as Found from [dintabell]\"
Set Record =  myConn.Execute(Sql)
Ialt = Record(\"found\")
Sql = \"Select * from [dintabell]\"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
response.write ...
myConn.Close
Set myConn = Nothing
%>

//>Rune

Hvis det så er en MySQL Database, kunne du fx. gøre sådan her:

SELECT * FROM tabel ORDER BY Rand()

//>Rune

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

Sql = "Select count(*) as Found from [dintabell]"
Set Record =  myConn.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from [dintabell]"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
response.write ...
myConn.Close
Set myConn = Nothing

Her er det finkæmmet lidt ;o)

Her har du det i en lidt mere enkelt version ;o)

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

    SQL = "SELECT * FROM tblJokes"
    Set rs = Conn.Execute(SQL)
           
    SQLCount = "SELECT Count(*) As Show FROM tblJokes"
    Set go = Conn.Execute(SQLCount)
           
    Function ShowJoke()
        Randomize
        RandNum = Int(Rnd * go("Show")) + 1
        rs.MoveFirst
            For i = 1 to RandNum - 1
                rs.MoveNext
            Next
        Response.Write(Replace(rs("Joke"),vbCrLf, "<br>") & " " & Replace(rs("Joke"),vbCrLf, "<br>"))
    End Function
%>

//>Rune

Samme kode optimeret lidt, med kommentar :)

strSQL = "SELECT * FROM advert where place = '" & strPlace & "'"
RS.Open strSQL, objConn, 3
'Find antal records
recCount = rs.RecordCount
'Find random nummer
randomize
rec = int(rnd * recCount)
'Flyt til den valgte record
rs.Move rec
'Udskriv
response.write rs("kolonnenavn")

rs.Close

hmm øv SQL'en skal ændres fra:
strSQL = "SELECT * FROM advert where place = '" & strPlace & "'"

Til:
strSQL = "SELECT  * FROM Vare"

eagleeye: *G*

//>Rune

Hej med jer. Ja undskylde det sene svar, men jeg er først lige kommet hjem.
Det er en acces database jeg bruger.
Jeg har brugt en del af medions kode, men det virker ikke endnu.
------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../../Connections/hans.asp" -->
<%
Sql = "Select count(*) as Found from [Vare]"
Set Record =  myConn.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from [Vare]"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
response.write
myConn.Close
Set myConn = Nothing
%>
----------------------
Her er fejlkoden
-----------------------
Microsoft VBScript runtime error '800a01a8'

Object required: 'myConn'

start.asp, line 5
--------------------------
Jeg har brugt min egen forbindelse til databassen.
<!--#include file="../../Connections/hans.asp" -->

du skal rette myConn til navnet på den connection du laver i include filen.

Min conn er
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_Lokecykler_STRING
Skal jeg så udskifte Myconn med MM_Lokecykler_STRING ...?

Ja hvis MM_Lokecykler_STRING  er dit connection object.. Der må være en linie et sted hvor der står noget med:

Set xxxx = Server.CreateObject("ADODB.Connection")

og så er xxxx navet på dit connection object.

Nu får jeg denne fejl
-------------------
Microsoft VBScript runtime error '800a01a8'

Object required: 'MM_Lokecykler_STRING'

start.asp, line 6

------------------
<%
<!--#include file="../../Connections/Hans.asp" -->

Sql = "Select count(*) as Found from [Vare]"
Set Record =  MM_Lokecykler_STRING.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from [Vare]"
Set Record =  MM_Lokecykler_STRING.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
response.write
MM_Lokecykler_STRING.Close
Set MM_Lokecykler_STRING = Nothing

%>
-----------------
Jeg synes bare ikke rigtig at jeg har glemt at erstatte det nogen steder

De betyder den ikke kan finde MM_Lokecykler_STRING som et object.

Så MM_Lokecykler_STRING er vist ikke et connection object.

Her er den side som forbinder min min asp side med min database
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_Lokecykler_STRING
MM_Lokecykler_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= d:\Hans.mdb"
%>
Denne side bliver forbundet til min start.asp med denne her
<!--#include file="../../Connections/hans.asp" -->
----------------
Hvad er min connection object så ...? (en lidt forvirret mand...!)

Ok.. men så er MM_Lokecykler_STRING "bare" en conenction streng som førtæller en connection hvilken driver og hvilken database den skal bruge.

Så prøv at rette koden tilbage til koden med myConn og tilføj disse to linier:

Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open MM_Lokecykler_STRING


lige før din SQL sætning.

Nu ser fejlen sådan ud
-----------------
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

start.asp, line 5
-----------------
Koden ser sådan ud nu
-------------------
<%
<!--#include file="../../Connections/Hans.asp" -->
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open MM_Lokecykler_STRING
Sql = "Select count(*) as Found from [Vare]"
Set Record =  myConn.Execute(Sql)
Ialt = Record("found")
Sql = "Select * from [Vare]"
Set Record =  myconn.Execute(Sql)
Randomize
RandNum = Int(Rnd * Ialt) + 1
Record.MoveFirst
For i = 1 to RandNum - 1
    Record.MoveNext
next
response.write
myConn.Close
Set myConn = Nothing
%>

include filen skal stå i HTML delen af koden

<!--#include file="../../Connections/Hans.asp" -->
<%
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open MM_Lokecykler_STRING
.
.

Nu kommer den med fejl
---------------
error '80004005'
Unspecified error

start.asp, line 9
--------------------
Linje 9 = Set Record =  myConn.Execute(Sql)

hmmm prøv at lave den første SQL sådan her:

Sql = "Select count(*) as Found from Vare"

Det virker ikke...?
-----------------
Kan man ikke bruge den du har forslået
---------------------
strSQL = "SELECT  * FROM Vare"
RS.Open strSQL, objConn, 3
'Find antal records
recCount = rs.RecordCount
'Find random nummer
randomize
rec = int(rnd * recCount)
'Flyt til den valgte record
rs.Move rec
'Udskriv
response.write rs("kolonnenavn")

rs.Close
-------------
Når jeg bruger denne her, så får jeg fejl
-----------------
Microsoft VBScript runtime error '800a01a8'

Object required: 'RS'

start.asp, line 24

Oppe under denne linie
Set myConn = Server.CreateObject("ADODB.Connection")

Skal du tilføje:
Set rs = Server.CreateObject("ADODB.Recordset")

Her er min kode nu
----------------
<!--#include file="../../Connections/Hans.asp" -->
<%
Set myConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT  * FROM Vare"
RS.Open strSQL, objConn, 3
'Find antal records
recCount = rs.RecordCount
'Find random nummer
randomize
rec = int(rnd * recCount)
'Flyt til den valgte record
rs.Move rec
'Udskriv
response.write rs("VareID")
rs.Close
-------------
Og her er fejlmeddelsen
------------------
ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

start.asp, line 8
-----------------
Linje 8 = RS.Open strSQL, objConn, 3

Disse linier:

Set myConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT  * FROM Vare"
RS.Open strSQL, objConn, 3

Skal laves om til:

Set myConn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
myConn.Open MM_Lokecykler_STRING
strSQL = "SELECT  * FROM Vare"
RS.Open strSQL, myConn, 3

Nu virker det. Jubiiiiiiii
Jeg takker mange gange for hjælpen, uden dig var det nok ikke lykkedes i dette årti.
Hvis du vil have dine point, så skal du lige give mig et svar, så jeg kan accepter dit svar.

Det lyder godt det kom til at virke.

Ok her er et svar.

Jeg takker endnu en gang.
Nu er det vist tid til at få en velfortjent søvn.
God weekend til dig eagleeye