<%
Dim numArray(10)
Dim counter, imgindex, hitcount, FS, RS, filename, imgcounter, maximages
Set FS = Server.CreateObject("Scripting.FileSystemObject")
 
For counter = 1 to UBound(numArray)
filename = counter & ".txt"
If counter < 10 Then filename = "0" & filename
Set RS =  FS.OpenTextFile(Server.MapPath("/devroot/photosite/tempg/cou nts") & "\" & filename,1)
numarray(counter)=RS.Readline
Next
 
maximages = 10
 
For imgcounter = 1 to maximages
hitcount = -1
For counter = 1 to UBound(numArray)
     If numArray(counter) > hitcount Then
      hitcount = numArray(counter)
      imgindex = counter
      'reset this so you don't count it again
      numArray(counter) = -1
     End If 
Next
If imgindex < 10 Then imgindex = "0" & imgindex
 
Response.Write "<img src=""http://www.robarspages.ca/devroot/p...mpg/thumbnails/" & imgindex & ".jpg""><br><br>"
 
Next

%>