<%
Dim listFile
Dim fso, ts
Dim strg, count
Dim arrImg(), randNum
Dim imsSrc
listFile = server.mappath("imagelist.txt")
' create file objects
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(listfile, 1, False)
' load contents into array
count = 0
Do While Not ts.AtEndOfStream
strg = ts.ReadLine
count = count + 1
ReDim Preserve arrImg(count)
arrImg(count) = strg
Loop
' clean up file objects
'listFile.Close
Set ts = nothing
Set fso = nothing
'pick a random number between 1 and count
randomize
randNum=int(rnd*count)+1
'Set source to array value
imgSrc = arrImg(randNum)
%>
Phoenix Time and Temp
..