Random

<%
Set rs = Server.CreateObject(\"ADODB.Recordset\")
rs.Open \"SELECT * FROM Links\", \"DSN=Links;UID=;PWD=\", adOpenKeyset
If Not (rs.BOF Or rs.EOF) Then
Randomize
intCount = Int(Rnd * rs.RecordCount) + 1
rs.AbsolutePosition = intCount
strLink = rs(\"Link\")
End If
rs.Close
Set rs = Nothing
%>

skal selvfølgelig lige tilpasses...

hei, det gikk rett og slett ikke så riktig bra :) Jeg prøve å tilpasse men fikk bare feilmeldinger.. noe hjelp å få med hva som må gjøres? =)

Prøv at kigge her .. ikke sikkert du kan bruge det men anyway ..

http://www.eksperten.dk/spm/31825