do while rsPhoto.state <> adStateClosed
					do while not (isempty(rsPhoto) or rsPhoto.eof)
						height = 90
						
						if rsPhoto("thumb_width") <> "" then
							width = rsPhoto("thumb_width")
						else
							width = 90
						end if
						
						if rsPhoto("thumb_height") > 90 then
							width = height * rsPhoto("thumb_width") / rsPhoto("thumb_height")
						end if
						
						response.write "<a id="""& count &""" href=""editPhoto.asp?idPhoto="& rsPhoto("id") &""" class=""thumbnail"" title="""& replace(rsPhoto("title"), """", "&quot;") &""" onmouseover=""show_photo_title(this);"" onmouseout=""hide_photo_title();"">"
						response.write "<img id=""photo_"& rsPhoto("id") &""" src="""& WWW &"/i/thumb/"& rsPhoto("thumb_image") &""" width="""& width &""" height="""& height &""" alt="""& replace(rsPhoto("title"), """", "&quot;") &""" ondragstart=""return false;"" />"
						response.write "</a>"& vbcrlf
						
						count = count + 1
						rsPhoto.moveNext
					loop
					
					set rsPhoto = rsPhoto.getNextRecordSet
				loop