<%@LANGUAGE="VBSCRIPT"%>
<%
Option Explicit
Dim strDocsPath, strDocsPhysicalPath
Dim objFSO, objFolder, objFiles, objFile
Dim strName, strFile, strType, lngSize
' NOTE: set the following line to the folder to display
strDocsPath = "holidaypics"
' map the folder to a physical path
strDocsPhysicalPath = Server.MapPath(strDocsPath)
' create a system fileobject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
' create an object for the folder
Set objFolder = objFSO.GetFolder(strDocsPhysicalPath)
%>
Table Of Contents
Photos from Laurel Rabschutz and Paul Pribula
Laurel and Paul own share their lives with:
Ben (Annie & Po April 2002 litter)
Rollo (Annie & Packard September 1999 litter)
Gus - a beautiful black boy who is best friends with his Blue Heaven buddies
These dogs are all professional dancers! You can read about
them in other areas of this website. Go to the Search page and search on their
names.
<%
' create a files collection
Set objFiles = objFolder.Files
' step through the files collection
For Each objFile in objFiles
if instr(objfile.type,"JPG")>0 or instr(ucase(objfile.name),"JPEG")>0 or instr(ucase(objfile.name),"JPG")>0 then
' get a file's name
strName = objFile.Name
' make it lowercase for the URL
strFile = Lcase(strName)
' get the file's type
strType = objFile.Type
' make the name a title for display
strName = MakeTitle(strName)
' get the file size in KB
lngSize = objFile.Size\1024
' output the filename and URL
'Response.Write "" & strName & "
"
Response.Write "" & strName & "
"
' output the file's size and type
'Response.Write "(" & lngSize & "KB " & strType & ")" & vbCrLf
Response.Write "![]()
"
end if
Next
' this function simply drops the extension from a file
Function MakeTitle(strTemp)
If InStrRev(strTemp,".") Then
strTemp = Left(strTemp,InStrRev(strTemp,".")-1)
End If
MakeTitle = strTemp
End Function
%>