On 14 Oct 2004 08:22:29 GMT, Jesper Fjølner wrote:
> Jeg vil godt have vist billeder fra en database på en side, og
> have dem udskiftet fx. hver dag eller hver uge. Der skal ikke
> loades nye tilfældige billeder ved hver reload. Jeg synes det
> giver mere konsistens hvis bruger klikker tilbage til en side og
> finder de samme billeder igen - i hvertfald inden for samme dag.
Jeg bruger det her. Det er sat til at skifte hver dag. Det samme billede
på hele dagen.I min base har jeg alle foto navne i feltet FOTO f.eks
foto1.jpg osv. Scriptet tæller antallet af foto_id og henter så filen i min
"fotomappe"
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_conn_string
strDaily = "Daily"
set rsDaily =server.CreateObject("ADODB.Recordset")
set rsDaily.ActiveConnection = Conn
rsDaily.Open "SELECT FOTO FROM DB"
set rsTopNumber=conn.execute("select count(FOTO_ID) from DB")
intRecordID = rsTopNumber(0)
rsTopNumber.close
set rsTopNumber = nothing
If strDaily = "Daily" then
intDays = DatePart("y",now)
intStart = intdays Mod intRecordID
rsDaily.Move intStart
Elseif strDaily = "Random" then
Randomize
numMove = Int(intRecordID * Rnd)
rsDaily.Move numMove
End If
%>
<img src="fotomappe/<%=rsDaily("FOTO")%>" width="100" height="100"
border="0">
<%
rsDaily.close
Conn.close
set rsDaily = nothing
set Conn = nothing
%>