<%@ Language=VBScript %> <% function MapURL(path) dim rootPath, url 'Convert a physical file path to a URL for hypertext links. rootPath = Server.MapPath("/") url = Right(path, Len(path) - Len(rootPath)) MapURL = Replace(url, "\", "/") end function %> <% sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) 'Display the target folder and info. 'Response.Write("

" & folder.Name & " - " _ ' & folder.Files.Count & " files, ") 'if folder.SubFolders.Count > 0 then ' Response.Write(folder.SubFolders.Count & " directories, ") 'end if 'Response.Write(Round(folder.Size / 1024) & " KB total." _ ' & "

" & vbCrLf) 'Response.Write("

" & vbCrLf) 'Display a list of sub folders. 'for each item in folder.SubFolders ' ListFolderContents(item.Path) ' next 'Display a list of files. for each item in folder.Files url = MapURL(item.path) 'Response.Write("
• " & item.Name & " - " & item.Size & " bytes, " & "last modified on " & item.DateLastModified & "." & "
" & vbCrLf) 'Response.Write("") Response.Write("") Response.Write(vbCrLf) next Response.Write("

" & vbCrLf) end sub %>

	home	gallery	products	about us	contact us
Welcome to Legacy Stone's Gallery. Here you will find actual pictures of satisfied customers who have chosen our cultured stone. If you have any questions, feel free to contact us! <%ListFolderContents("E:\kunden\homepages\8\d165867473\legacy\pictures")%>
- Legacy Stone of Iowa -
Copyright SkyShift Inc. 2006 All Rights Reserved.