Fandt selv løsningen!
Dette script indlæser et tilfældigt billede fra listen i tekstfilen sidb.txt
sidb.txt:
img1
img2
img3
img4
img5
img6
img7
img8
img9
img10
scriptet:
<%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("sidb.txt")
Set f = fso.OpenTextFile(filespec,1)
' Spring over nogle tilfældige
Randomize
Rand = Round(Rnd * 10, 0) '10 er antallet af billeder
For intLine = 1 to Rand
f.SkipLine
Next
' udskriv den næste linje
Response.write "<img src=" & f.ReadLine & ".bmp>"
f.Close
%>
Indlæg senest redigeret d. 29.06.2006 15:53 af Bruger #1927