IanD — Wed, 13 Jul 2005 02:50:49 +0000

That works, thanks

<!-- #include virtual="\header.asp" -->

<%

Dim strAlbum
Dim strPhoto
strAlbum = Request.QueryString("album")
strPhoto = Request.QueryString("photo")

Dim objFSO
Dim objDictionary
Dim objAlbums
Dim objAlbum
Dim objFile
Dim varCounter

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")


If strAlbum <> "" And strPhoto = "" Then
	' If only album given in then display thumbnails for all photos in that album
	
	Set objAlbum = objFSO.GetFolder(Server.MapPath("/images/photo-albums/" & strAlbum))
	Set objDictionary = CreateObject("Scripting.Dictionary")
	
	' Build array of large photos, will be identical to array built on large photo page.
	varCounter = 0
	For Each objFile in objAlbum.Files
	If InStr(objFile.Name, "-thumb") = 0 Then
		objDictionary.Add varCounter, objFile.Name
		varCounter = varCounter + 1
	End If
	Next
	
	Response.Write "<div style='text-align: center'>"
	
	For varCounter = 0 To (objDictionary.Count - 1)
		Response.Write "<a href='/photos.asp?album=" & strAlbum & "&photo=" & varCounter & "' class='linked-image'>"
		Response.Write "<img src='/images/photo-albums/" & strAlbum & "/" & Replace(objDictionary(varCounter), ".jpg", "-thumb.jpg") & "' style='border: 1px solid white;'/></a> "
	Next
	
	Response.Write "</div>"
	
	
Elseif strAlbum <> "" And strPhoto <> "" Then
	' If album and photo# given then display big photo

	Set objAlbum = objFSO.GetFolder(Server.MapPath("/images/photo-albums/" & strAlbum))
	Set objDictionary = CreateObject("Scripting.Dictionary")
	
	' Build array of large photos, will be identical to array built on thumbnail page.
	varCounter = 0
	For Each objFile in objAlbum.Files
	If InStr(objFile.Name, "-thumb") = 0 Then
		objDictionary.Add varCounter, objFile.Name
		varCounter = varCounter + 1
	End If
	Next
	
	Response.Write "<div style='text-align: center'>"
	
	If strPhoto <> 0 Then
		Response.Write "<a href='/photos.asp?album=" & strAlbum & "&photo=" & strPhoto - 1 & "' style='text-decoration: none'>"
	End If
	Response.Write "&laquo;</a> |"
	
	Response.Write "<a href='/photos.asp?album=" & strAlbum & "' style='text-decoration: none'>index</a> | "
	
	If cint(strPhoto) <> (objDictionary.Count -1 ) Then
		Response.Write "<a href='/photos.asp?album=" & strAlbum & "&photo=" & strPhoto + 1 & "' style='text-decoration: none'>"
	End If
	Response.Write "&raquo;</a>"
	
	Response.Write "<p><img src='/images/photo-albums/" & strAlbum & "/" & objDictionary(cint(strPhoto)) & "' style='border: 1px solid white;' /></p>"
	
	Response.Write "</div>"
	
Else 
	' If no params given, display list of albums
	
	Set objAlbums = (objFSO.GetFolder(Server.MapPath("/images/photo-albums/" & strAlbum))).SubFolders
	
	For Each objAlbum In objAlbums
		Response.Write "<a href='/photos.asp?album=" & objAlbum.Name & "'>" & Replace(objAlbum.Name, "-", " ") & "</a><br />"
	Next

	
End If



Set objFSO = nothing
Set objDictionary = nothing
Set objAlbums = nothing
Set objAlbum = nothing
Set objFile = nothing


%>

<!-- #include virtual="\footer.asp" -->

chrishirst — Tue, 12 Jul 2005 08:30:32 +0000

Using a database would be the best way, but you could use the FSO to build an associative array (Scripting Dictionary) of images from the folder. This has the benefit of if you add or remove images you don't need to rewrite your array. It is also possible to build the folder array in the same way.

dim FSO
dim Folders
dim Files
dim File
dim i

dim PhotoShoot
set PhotoShoot = server.CreateObject("Scripting.Dictionary")


Set FSO = CreateObject("Scripting.FileSystemObject")
set Folders=FSO.GetFolder(server.mappath(Folder))
Set Files = Folders.Files

i = 0
for each File In Files
if lCase(Right(File.Name,4)) = ".jpg" then
PhotoShoot.add i, File.Name
i = i + 1
end if
next

and to reference the image you use it just the same as an array.

And don't forget to destroy the objects at the end of the code.

BTW I didn't test this code (I may do later in the day) but it looks right.