<%
per_page = Cint(Request.querystring("per"))
If per_page = 0 then
per_page = 6
End If
page_num = Cint(Request.querystring("page"))
If page_num = 0 then
page_num = 1
End If
cat = Request.querystring("cat")
strQuery = Request.querystring("search")
CONST DIRECTORY = "/" ' relative path in virtual directories
' Specify one of these constants for "sortBy"...
CONST FILE_NAME = 0
CONST FILE_MODIFIED = 1
sortBy = FILE_MODIFIED
reverse = true
'get files
set fs = CreateObject("Scripting.FileSystemObject")
if not cat = "" then
set folder = fs.GetFolder(Server.MapPath("photos/" & cat & "/"))
else
set folder = fs.GetFolder(Server.MapPath("photos/"))
end if
Set curFiles = folder.Files
count = 1
Response.Write "