Avatar billede data2k.dk Nybegynder
06. november 2002 - 21:12 Der er 4 kommentarer og
1 løsning

Lave en random funktion?

Hejsa!

Hvordan laver jeg i dette i ASP... har prøvet mig frem, men jeg er ikke så god til det!

Jeg vil gerne have scriptet til at tage et tilfældigt link fra min database og udskrive det på skærmen... altså et hyperlink.

Sådan ser mine kode ud uden at jeg har pillet ved den. [ps. det er en kode som jeg bruger til en mindre topliste, men tror ikke der skal ændres så meget i den]


          <%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("database.mdb")
str_sql2 = "SELECT TOP 25 * FROM links WHERE godkendt=(1) ORDER BY id desc"

Set rs = Conn.Execute (str_sql2)
%>





---------

og denne kode udskriver linket

<a href="showtitle.asp?rid=<%= RS("id") %>&sp=title"><%=RS("title")%></a>


er det muligt at få den til at udvælge et tilfældigt link i databasen?
Avatar billede eagleeye Praktikant
06. november 2002 - 21:16 #1
denne kode kan du bruge til at vælge en tilfældig record i databasen:


Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM links WHERE godkendt=(1)"
rs.Open strSQL, Conn, 3, 1
rndMax = rs.RecordCount
Randomize
rndNumber = Int((RND * rndMax))  'Find et random nummer
rs.Move rndNumber 'Flyt til den valgte record
%>
<a href="showtitle.asp?rid=<%= RS("id") %>&sp=title"><%=RS("title")%></a>
<%
rs.Close
Set rs = Nothing
Avatar billede data2k.dk Nybegynder
06. november 2002 - 21:24 #2
eagleeye...

jeg fik denne fejl

ADODB.Recordset error '800a0bb9'

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

/Index.asp, line 62
Avatar billede eagleeye Praktikant
06. november 2002 - 21:27 #3
hvordan ser din kode ud.. Du har connectionen med?
Avatar billede eagleeye Praktikant
06. november 2002 - 21:28 #4
Eller ret SQL'en til:

strSQL = "SELECT * FROM links WHERE godkendt=1"
Avatar billede data2k.dk Nybegynder
06. november 2002 - 21:33 #5
Sorry den første kode virkede fint.. kom bare til at slette et tegn!

Tak for hjælpen:)!!!
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