|
<%
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. |
|