<%
Function showPictures()
'Set up file getter and counter
Dim objFSO, objFile, objFileItem
dim strFSO, strFile, strFolderItem
dim textFile
'initialize the objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objFolder = objFSO.GetFolder(server.MapPath("./"))
dim objFolderContents
set objFolderContents = objFolder.files
dim strFolderCount
strFolderCount=objFolderContents.Count
for each objFileItem in objFolderContents
imgstr = objFileItem.Name
if imgstr <> "default.asp" then
Response.Write("" & vbNewline )
Response.Write("
" & vbNewline )
end if
next
set FSO = nothing
application.unlock
'spit out the results
Response.Write( linestr )
end function
%>