---

Hey NG !!

Jeg skal have lavet et script der henter 10 stk links ad gangen fra en
access database. Jeg har forsøgt dette, men det funker ik :(

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

---

"SNT [edidak.dk]" <sam@studi.dk> wrote in message
news:9e3jep$2cb1$1@news.cybercity.dk...
> Jeg skal have lavet et script der henter 10 stk links ad gangen fra en
> access database. Jeg har forsøgt dette, men det funker ik :(

Det er lidt sværere end som så:
<http://www.sqlteam.com/item.asp?ItemID=896>

Et andet alternativ er at først at trække iderne ud af databasen og derefter
filtrere 10 random numre fra og derefter selecte med en where ID = random1
OR ID = random2 osv.

--
Jakob Andersen
FAQ for webdesign gruppen på
<http://www.usenet.dk/oss/dk.edb.internet.webdesign>
"Det er rart at være vigtig, men det er vigtigere at være rar "

---

"SNT [edidak.dk]" wrote:
>
> Jeg skal have lavet et script der henter 10 stk links ad gangen fra en
> access database. Jeg har forsøgt dette, men det funker ik :(

Denne her er ikke specielt hurtig, men det er da hurtigere end sådan
noget cursor sjov. En lille test viste, at resultatet er ret tilfældigt
(aka. alle rækkerne har cirka samme sandsynlighed for at komme øverst).

Randomize
r = Rnd
sql="SELECT TOP 5 id, navn " & _
"FROM links " & _
"ORDER BY " & _
" Right(id*"&r&", Len(id*"&r&")-InStr(id*"&r&", ',')-1)+" & _
" Left(id*"&r&", InStr(id*"&r&", ',')-1)"
--
Lauritz

---

Cool, sådan en har jeg sku ledt efter længe !!
Takker.
Mvh
Janus