| |
|
|
| Click on thumbnails for
larger image |
<%
select case Request.QueryString("year")
case "2004"
yearpath="2004/"
yearurl="&year=2004"
case else
yearpath=""
yearurl=""
end select
strPath = "images/photos/" & yearpath
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
inPath=Server.MapPath (strPath)
Set objFolder = FileObject.GetFolder(inPath)
''''''''''''''''''''''''''''''''''''''''
' output the file list
''''''''''''''''''''''''''''''''''''''''
ii=0
Set objCollection = objFolder.Files
colcount = 1
For Each objItem in objCollection
ii=ii+1
strName = objItem.Name
strFile = Server.HTMLEncode(strName)
intSizeB = objItem.Size
intSizeK = Int((intSizeB/1024) + .5)
if instr(strName, ".jpg")<>0 then
urlpath=strPath & strName
strfile="![](" & urlpath & ") "
fileid=lcase(replace(strname,".jpg",""))
fileid=replace(fileid,"pict","")
'strfile="" & strfile & ""
'strfile=" " & strfile & ""
%>
<%=strfile %>
|
<%
colcount = colcount+1
if colcount=5 then
colcount=1
%>
<%
end if
end if
%>
<%next
do while colcount<5
%>
| |
<%
colcount = colcount+1
loop
%>
| back |
|
|
|
|
|
