Kan du ikke lave et random tal udfra et id nr. fra databasen og derefter
sætte posten ind i en: response.redirect "IDnrs-link"
Hilsen Torben
web:
http://www.eismann.dk
--------------------------------------------------------------------
"Johnny H. Liljensøe" <johnny@worldticket.dk> skrev i en meddelelse
news:3c8e2439$0$259$edfadb0f@dspool01.news.tele.dk...
> Scriptet nedenunder har jeg downloadet fra activedeveloper (Morten Beck)
det
> er til for at tilfældigt vise bannere på en side. Eftersom at jeg ikke har
> ret meget styr på ASP vil jeg høre om det er muligt at lave den om så at
den
> udfra en database henter et link, og i stedet for at vise det så skal den
> sende en videre til det link som den har valgt.
>
> dvs. jeg vil have en "Roulette" ligesom jubii's det skal bare være mine
egne
> links
>
> <%
> Response.Buffer = True
>
> Function Show()
> Randomize
> RandNum = Int(Rnd * Ialt) + 1
> Record.MoveFirst
> For i = 1 to RandNum - 1
> Record.MoveNext
> next
> Response.Write "<a href='http://" & Record("adresse") & "'><img src='"
&
> Record("images") & "' alt='" & Record("navn") & "' border = '0'></a>"
> end function
>
>
> Set Rs = Server.CreateObject("ADODB.Connection")
> DBPath = "DBQ=" & server.mappath("../autobanner/ban-db.mdb")
> Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
>
> Sql = "Select count(*) as Found from Banner"
> Set Record = Rs.Execute(Sql)
>
> Ialt = Record("found")
>
> Sql = "Select * from banner"
> Set Record = Rs.Execute(Sql)
>
> Response.Write "<center>"
> Show()
>
> %>
> --
>
> ----------------
> Toastmaster
>
>