Paginazione FSO

contentpath = "public/immaginiUpload/thumb/"
		
perpage = "16"
		
PageNum = request.querystring("page")
blnAtEnd=True
blnAtBegin=False
If PageNum="" or int(PageNum)=1 Then
blnAtBegin=True
PageNum=1
End If
IgnoreCount = (PageNum -1) * perpage

strPath = Server.MapPath("public\immaginiUpload\thumb") & "\"
Dim objFSO, objFolder, objFile
Set objFSO = server.createobject("scripting.filesystemobject")
Set objFolder = objFSO.getfolder(strpath)

For Each objFile in objFolder.Files
   counter = counter + 1
   if ((right(objFile.name, 4) = ".jpg" and ignorecount < counter) or (right(objFile.name, 4) = ".JPG" and ignorecount < counter)) then
	
   Response.write "visualizzo l'immagine"  
   end if
	
   If counter > ignorecount + perpage then
   blnAtEnd=False
Exit For
   End if
Next

<% 
  	If blnAtBegin=False Then
	response.write "<br><a href='PROVAIMAGE.asp?page=" & pagenum - 1 & "'>Previous Page</a>"
	End If
	If blnaAtEnd=False Then
	response.write "<br><a href='PROVAIMAGE.asp?page=" & pagenum + 1 & "'>Next Page</a>"
	End If
%>