hjælp til det script

Læg navnene på mapperne i et array og så gennemløb koden der læser indholdet af mapperne i en løkke. Husk så at inkludere mappen i strfilearr.

Noget i stil med dette:

<%

strmappearr = Array("banpic","newpic","mypic")

Set directory=server.createobject("scripting.filesystemobject")

for each strmappe in strmappearr
  Set allfiles=directory.getfolder(server.mappath(strmappe))

  For each directoryfile in allfiles.files
    strfilearr = strfilearr + strmappe & "/" & directoryfile.Name & ","
    strcountfiles = strcountfiles + 1
  Next
next

strfilearr = split(strfilearr,",")

randomize
randomfile = int(rnd*strcountfiles)

response.write "<img src='"&strfilearr(randomfile)&"'>"
%>

Da der godt kan indgå komma i filnavne, bør du nok benytte f.eks. pipe, dvs. |, til at adskille dine filnavne i strfilearr.

...og hvis dit site er et af de travle, kunne du overveje at cache listen med billeder, så der ikke skal læses fra disken hver gang. Du kunne evt. lægge listen i application-objektet (da det er en ren streng er det OK at smide den i application).

Det kunne f.eks. se således ud:

<%

if application("billedeliste") & "" = "" then
  strmappearr = Array("banpic","newpic","mypic")

  Set directory=server.createobject("scripting.filesystemobject")

  for each strmappe in strmappearr
    Set allfiles=directory.getfolder(server.mappath(strmappe))

    For each directoryfile in allfiles.files
      strfilearr = strfilearr + strmappe & "/" & directoryfile.Name & ","
      strcountfiles = strcountfiles + 1
    Next
  next
  application("billedeliste") = strfilearr
else
  strfilearr = application("billedeliste")
end if

strfilearr = split(strfilearr,",")

randomize
randomfile = int(rnd*strcountfiles)

response.write "<img src='"&strfilearr(randomfile)&"'>"
%>

Hmm, jeg har prøvet det script du oprettede 23:53:58
jeg kan ikke få den til at randomme billederne, der kommer kun et billede frem, så sker der ikke mere.

<%

if application("billedeliste") & "" = "" then
  strmappearr = Array("aktiviteter","indendoers","uderummet","traditioner","dyr")

  Set directory=server.createobject("scripting.filesystemobject")

  for each strmappe in strmappearr
    Set allfiles=directory.getfolder(server.mappath(strmappe))

    For each directoryfile in allfiles.files
      strfilearr = strfilearr + strmappe & "/" & directoryfile.Name & ","
      strcountfiles = strcountfiles + 1
    Next
  next
  application("billedeliste") = strfilearr
else
  strfilearr = application("billedeliste")
end if

strfilearr = split(strfilearr,",")

randomize
randomfile = int(rnd*strcountfiles)

response.write "<img src='"&strfilearr(randomfile)&"'>"
%>

Prøv lige at udskifte denne linie:

randomfile = int(rnd*strcountfiles)

med denne linie:

randomfile = int(rnd*ubound(strfilearr)+1)

super :O) nu virker det.

drop et svar, og tak for hjælpen.

Jeg vil gerne lukke dette spørgsmål, drop et svar pleas..

lukket