Jeg har denne kode på min hjemmeside. Den burde kunne sørge for at de samme
billede ikke bliver vist 2 gange, men det går den ikke. Er jeg helt galt på
den?
<%
antalRandom = 3
inDB = rs.RecordCount
If inDB > antalRandom then
Randomize timer
newId = Int (rnd*inDB)
strIndex = "," & newid & ","
indexFound = 1
Do while indexFound < antalRandom
Do
Newid = Int (rnd*inDB)
Loop while inStr(strIndex,"," & newid & ",") > 0
strIndex = strIndex & newid & ","
indexFound = indexFound + 1
Loop
strIndex = mid (strIndex,2,len(strIndex)-2)
myArr=split(strIndex,",",-1)
For i = Lbound(myArr) to Ubound(myArr)
rs.move myArr(i),1
Response.write "<img src='../billeder/random/" & rs("Titel") & "'
border='1' width='150' height='150'>"
Response.Write("<br><br>")
next
end if
%>
Er det muligt at lave den om så den bare henter x antal billeder fra en
mappe, så den smutter udenom databasen?
Håber I kan hjælpe.
-
Med venlig hilsen
Kasper Christensen
Multimediedesigner
http://www.kasperc.dk