'sera a tutti spero che qui qualcuno possa darmi una mano
è tutto il giorno che mi spatto con questo codice...praticamente riesco a far visualizzare le immagini iserite all'interno di una specifica cartella....solo che vorrei far comparire sotto la foto anche il nome...ma non ci riesco qualcuno ci capisce qualcosa?

grazie mille...

codice:
<%
'*******************************************************************
' Darkroom Gallery v.1.0
'*******************************************************************
' Copyright (C) 2004 bjawnie.com
'
' This script is freeware specified as follows:
'
' You may modify the script to fit your needs in anyway you like.
' If you wish to redistribute it, non-commercial or commercial, however 
' you are obligated to contact the author to get his permission.
'
' All copyright notices regarding bjawnie.com or links to bjawnie.com
' must remain intact in the scripts and in the outputted HTML.
'
' Support can be obtained through our site at bjawnie.com
'*******************************************************************

'*********
' SETTINGS
' -->
	dim PageTitle, ImageDirectory, ThumbnailHeight, ThumbnailWidth, ItemsPerPage, ItemsHorizontal
	PageTitle			= "PhotoGallery"
	ImageDirectory		= "\public\gallery\"
	ThumbnailHeight	= 80
	ThumbnailWidth		= 100
	ItemsPerPage		= 2
	ItemsHorizontal	= 2
' <--

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 "<table class=""table"">" & vbnewline
	
		dim i, ItemPrints
		for i = 0 to ubound(ItemArray)
			ItemPrints = ItemPrints + 1
		
				if int(ItemPrints) = 1 then
					response.write "<tr>" & vbnewline
				end if

					response.write "<td class=""td"">" &_
						
						"<a href="""& ImageDirectory & "/" & ItemArray(i) & """ target=""_blank"" class=""link_image"">" &_
							"[img][/img]" &_
						"</a>" &_
					"</td>" & vbnewline

			if int(ItemPrints) = int(ItemsHorizontal) OR i = ubound(ItemArray) then
				ItemPrints = 0
				response.write  "</tr>" & vbnewline
			end if
		next

	response.write  "</table>" & 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 "<div class=""div_paging"">" &_
			"Page: "

			dim i
			for i = 1 to TotalPages
				if int(CurrentPage) = int(i) then
					response.write " ("& i &")"
				else
					response.write " <a href="""& PageName &"?page="& i &""" class=""link_paging"">" &_
						i &_
					"</a>"
				end if

				if NOT i = TotalPages then
					response.write ", "
				end if
			next

		response.write "</div>"
	end if
end sub


response.write "<html>" & vbnewline &_
"<head>" & vbnewline &_
"<title>" & PageTitle & "</title>" & vbnewline &_
"<style>" & vbnewline &_

"body" &_
"{" &_
"font-family: tahoma, verdana, arial;" &_
"font-size: 10pt;" &_
"color: #000000;" &_
"text-align:center;" &_
"}" & vbnewline &_

".table" &_
"{" &_
"margin:auto;" &_
"}" & vbnewline &_

".td" &_
"{" &_
"padding:20px;" &_
"}" & vbnewline &_

"a.link_image" &_
"{" &_
"border:2px groove #cccccc;" &_
"}" & vbnewline &_

"a.link_image:hover" &_
"{" &_
"border:2px groove #cccccc;" &_
"}" & vbnewline &_

"a.link_paging" &_
"{" &_
"text-decoration:underline;" &_
"color: #000000;" &_
"}" & vbnewline &_

"a.link_paging:hover" &_
"{" &_
"text-decoration:none;" &_
"color: #000000;" &_
"}" & vbnewline &_

"a.link_credits" &_
"{" &_
"font-size: 8pt;" &_
"color: #000000;" &_
"}" & vbnewline &_

".div_credits" &_
"{" &_
"font-size: 8pt;" &_
"color: #000000;" &_
"}" & vbnewline &_

".image" &_
"{" &_
"border:0px;" &_
"}" & vbnewline &_

"</style>" & vbnewline &_
"</head>" & vbnewline &_
"<body>" & vbnewline

call PrintGallery()

call PrintPaging()


response.write "
" & vbnewline &_
"
" & vbnewline &_

"<div class=""div_credits"">" &_
	"" &_
"</div>" & vbnewline &_

"</body>" & vbnewline &_
"</html>"
%>