<%
@Language = "VBscript"
%>
<%
dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal
PageTitle = "www.EvolutionEvents.it"
ImageDirectory = "eventispeciali"
ThumbnailHeight = 80
ThumbnailWidth = 120
ItemsPerPage = 18
ItemsHorizontal = 3
' <--
dim TotalItems, CurrentPage
sub PrintGallery()
CurrentPage = request.querystring("page")
if CurrentPage = "" OR int(CurrentPage) = 0 then
CurrentPage = 1
end if
dim StartItem
StartItem = ((CurrentPage - 1) * ItemsPerPage) + 1
if int(StartItem) = 0 then
StartItem = 1
end if
dim FileSystemObject, FileSystemObjectFiles
set FileSystemObject = server.createobject("scripting.filesystemobject")
set FileSystemObjectFiles = FileSystemObject.getfolder(server.mappath(ImageDirectory))
dim item, ItemArray
for each item in FileSystemObjectFiles.files
TotalItems = TotalItems + 1
if int(StartItem) <= int(TotalItems) AND int(StartItem + ItemsPerPage) > int(TotalItems) then
if ItemArray = "" then
ItemArray = ItemArray & item.name
else
ItemArray = ItemArray & "," & item.name
end if
end if
next
ItemArray = split(ItemArray, ",")
response.write "
" & vbnewline
dim i, ItemPrints
for i = 0 to ubound(ItemArray)
ItemPrints = ItemPrints + 1
if int(ItemPrints) = 1 then
response.write "
" & vbnewline
if int(ItemPrints) = int(ItemsHorizontal) OR i = ubound(ItemArray) then
ItemPrints = 0
response.write "
" & vbnewline
end if
next
response.write "
" & vbnewline
end sub
private sub PrintPaging()
dim TotalPages
TotalItems = TotalItems
TotalPages = TotalItems/ItemsPerPage
if int(TotalPages) < TotalPages then
TotalPages = int(TotalPages) + 1
end if
dim PageName
PageName = request.servervariables("script_name")
if 1 < TotalPages then
response.write "
" &_
"Pagina: "
dim i
for i = 1 to TotalPages
if int(CurrentPage) = int(i) then
response.write " ("& i &")"
else
response.write " " &_
i &_
""
end if
if NOT i = TotalPages then
response.write ", "
end if
next
response.write "
"
end if
end sub
response.write "" & vbnewline &_
"" & vbnewline &_
"" & PageTitle & "" & vbnewline &_
"" & vbnewline &_
"" & vbnewline &_
"" & vbnewline
call PrintGallery()
call PrintPaging()
%>