<% On Error Resume Next 'Randomize Timer strPath = Request.QueryString("path") image = Request.Querystring("image") Const strValid = ".jpg" count=0 ' make sure we have a trailing slash in the path If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) ' get the physical path of the folder strPhysical = Server.MapPath(strPath) ' get a File System Object Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ' create a folder object Set objFolder = objFSO.GetFolder(strPhysical) ' get the files collection Set objFiles = objFolder.Files ' enumerate the files collection looking for images For Each objFile in objFiles strFile = LCase(objFile.Name) If Instr(strValid,Right(strFile,4)) Then ' add vaild images to a string of image names strFiles = strFiles & strFile & vbTab count=count+1 End If Next ' split the image names into an array strImages = Split(strFiles,vbTab) If image="" then if UBound(strImages) > 1 then imagedisplayed=strPath & strImages(0) if UBound(strImages) > 1 then imagedisplayednext=strImages(1) else imagedisplayed=strPath&image call singlesorter(strImages) For iLoop = LBound(strImages) to UBound(strImages) If CStr(image) = CStr(strImages(iLoop)) then 'We found the element where = iLoop End If Next if where=count then imagedisplayednext=strImages(0) else imagedisplayednext=strImages(where+1) end if end if If Request.QueryString("method")="html" then %> <% SlideShowLink=request.servervariables("script_name")&"?path="&strpath&"&image="&imagedisplayednext&"&method="&request.querystring("method") Response.Write "" & vbcrlf Response.Write "

" Response.Write "

Next Picture

" %> <% else Response.Redirect imagedisplayed end if%>