Avatar billede edidak.dk Nybegynder
26. marts 2001 - 21:27 Der er 4 kommentarer og
1 løsning

10 tilfældige links fra access

Hej !!

Jeg har en database med 2 kolonner. Den ene indeholder en linkteksten, og den anden selve linket.

Hvordan udvælger jeg nemmest 10 tilfældige links fra databasen ?
Avatar billede callek Nybegynder
26. marts 2001 - 21:33 #1
Mener du kan gøre sådan:

select link from table order by rand() limit 10;

Avatar billede tommyf Nybegynder
26. marts 2001 - 21:33 #2
Et eksempel på hvordan man vælger et tilfældigt tip:
http://www.activeserverpages.dk/aspdigital/kapitel1/randomtip.asp
DEt kan vel hurtigt tilpasses?
Avatar billede edidak.dk Nybegynder
26. marts 2001 - 21:49 #3
Jeg har prøvet dette:

<%
strSQL = \"SELECT TOP 5 * FROM links order by rand;\"
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../opgaver/database.mdb\") & \";UID=admin;PWD=;\"
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF   
Response.Write\"- <a href=\'\" & rs(\"LinkURL\") & \"\'>\" & rs(\"LinkName\") & \"</a> <br>\"

            rs.MoveNext
        Loop

    Else
        Response.Write \"<p><font face=Tahoma size=1>There are no new articles in the database</font></p>\"
    End If
    myConn.Close
    Set myConn = Nothing
%>

Men det virker ligesom ik helt...
Avatar billede mascot Nybegynder
21. april 2001 - 11:56 #4
prøv at det her:

<%
strSQL = \"SELECT TOP 5 * FROM links order by rand;\"
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../opgaver/database.mdb\") & \";UID=admin;PWD=;\"
    Set rs = myConn.Execute(strSQL)
    If Not (rs.BOF Or rs.EOF) Then
        Do While Not rs.EOF   
Linkurl = rs(\"LinkURL\")
LinkName = rs(\"LinkName\")
Response.Write\"<a href=\" & LinkURL & \">\" LinkName & \"</a><br>\"

            rs.MoveNext
        Loop

    Else
        Response.Write \"<p><font face=Tahoma size=1>There are no new articles in the database</font></p>\"
    End If
    myConn.Close
    Set myConn = Nothing
%>

Det virker for mig
Avatar billede edidak.dk Nybegynder
21. maj 2001 - 20:09 #5
Men ikke for mig :( Lukker nu. Tak for alle svarene !
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester