"Zodiax" <zodiax@jesspar*nospam*.dk> skrev
> Hejsa
>
> Jeg har problemer med noget kode der skal loade et tilfældigt billede på
min
> hjemmeside hver gang den refreshes.
> Jeg har set nogle eksempler, men de kræver at man skriver navnene på de
> billeder der skal bruges - dvs hver gang der kommer et nyt billede skal
man
> ind og tilføje det til koden, og det vil jeg gerne undgå. Jeg vil helst
også
> undgå brug af database. Kan det lade sig gøre at der automatisk bliver
vist
> et tilfældigt billede af dem der er tilgængelige ?
Er vi uge i noget FileSystemObject, så kan du bruge dette:
<%
folder = Server.Mappath("billeder")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folder)
Set fc = f.Files
count = fc.Count
Randomize(timer)
randnumber = int(rnd * count) + 1
For Each f1 in fc
i = i+1
if i = randnumber then
response.write f1.name
end if
Next
%>
Mvh. Christoffer Thygesen
http://CHT.dk