"Johannes Veje" <jv@jv-data.dk> skrev i en meddelelse
news:3e1bc450$0$173$edfadb0f@dread12.news.tele.dk...
>
> "morten l" <kalkunen@mail.dk> skrev i en meddelelse
> news:3e1bc17f$0$71691$edfadb0f@dread11.news.tele.dk...
> >
> > "morten l" <kalkunen@mail.dk> skrev i en meddelelse
> > news:3e1a3278$0$71675$edfadb0f@dread11.news.tele.dk...
> > > hvordan laver jeg så den automatisk skifter billede på min side. den
> skal
> > > bare skifte imellem nogen billeder i en bestemt mappe.
> > >
> > > Morten
> > >
> > Har fået hjælp af en meget flink person..
> >
> >
> Det vil vi andre da også gerne se lidt mere til, det kunne jeg nemlig også
> godt bruge ......
>
> /johs.
>
her er koden, og der hvor der står grafik ændre man til det mappe navn hvor
billeder er.
-----Script start
<%
dim strfilearr, strcountfiles, randomfile, directory, allfiles,
directoryfile
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath("grafik"))
For each directoryfile in allfiles.files
strfilearr = strfilearr + directoryfile.Name & ","
strcountfiles = strcountfiles + 1
Next
strfilearr = split(strfilearr,",")
randomize
randomfile = int(rnd*strcountfiles)
response.write "<img src='grafik/"&strfilearr(randomfile)&"'>"
%>
----Script slut
Mvh. Morten
og som sagt skal jeg ikke ha' æren af den.