Home
Guestbook
 





     .............................................

<% JSarray="" thumbNailDir =Request.servervariables("APPL_PHYSICAL_PATH") & "images\album\thumbs" Set fso = CreateObject("Scripting.FileSystemObject") Set folder = fso.GetFolder(thumbNailDir) Set files = Folder.files m=0 For each file in Files fullFileName = right(file.name,len(file.name)-3) response.write "" If m=0 then firstImage = fullFileName End If JSarray = JSarray & chr(34) & fullFileName & chr(34) & "," m=m+1 next JSarray = left(JSarray,len(jsarray)-1) Set files = Nothing Set folder = Nothing Set newFolder = Nothing Set fso = Nothing %>
Thank You everyone that shared pictures.