<% Dim fs,foldersf,filefs,f,myImg,iWidth,cont set fs=server.createobject("scripting.filesystemobject") set folderfs=fs.getfolder(server.mappath(SlidePathV)) set filesfs = folderfs.files count = filesfs.count if count > 0 Then for each f in folderfs.Files 'Response.Write(server.mappath(SlidePathV&f.name)) 'set myImg = loadpicture(server.mappath(SlidePathV&f.name)) 'iWidth = round(myImg.width / 26.4583) set myImg = nothing 'If iWidth > 890 Then %> <% cont=cont+1 'End If next End if set filefs=nothing set fs=nothing set folderfs=nothing %>