Satt och sökte lite och såg då vides sätt att slumpa en post, i detta fall en länk. Men detta alternativ är inte bäst om du till ex skall slumpa en bild, för om besökaren trycker på uppdatera fler ggr så får man fel ibland, då den gått över gränsen. därför har jag gjort en modifikation som är bättre för det ändamålet.
OBS, Vides script fungerar utmärkt för det jag tror det var tänkt för, nämligen redirectning.
Vides kod:
<%
SQL = "select count(*) AS count_lankar from lankar"
Set RS_count_lankar = databas.Execute(SQL)
Randomize
vilkenlank = Int(rnd*RS_count_lankar("count_lankar"))-1
SQL = "Select * from lankar"
Set RSdbase = Server.CreateObject("ADODB.Recordset")
RSdbase.open SQL, Session("dbasepath")
RSdbase.Move vilkenlank
url = RSdbase("lank")
lank_namn = RSdbase("namn")
lank_beskriv = RSdbase("beskrivning")
%>
Min kod, med dena enda modifikationen är att det står -0 istället för -1, då du kan komma utanför ramarna i databasen.
<%
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBpath
SQL = "select count(*) AS count_member from Medlemmar"
Set RS_count_members = Connect2.Execute(SQL)
Randomize
vilkenlank = Int(rnd*RS_count_members("count_member")) -0
SQL = "Select * from Medlemmar"
Set RSdbase = Server.CreateObject("ADODB.Recordset")
RSdbase.open SQL, "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DBpath
RSdbase.Move vilkenlank
f_Namn = RSdbase("f_Nick")
Alder = RSdbase("f_Alder")
Bor = RSdbase("f_Bor")
%>
<% =f_Namn %>
<% =Alder %>
<% =Bor %>
<%
Connect2.close
Set Connect2=nothing
%>
------------------
En sak livet lärt mig är att idioterna oftast har rätt