Midwest Heating LLC

<%@ 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 ListFolderContentsTABLE(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(path) Response.Write("

" & vbCrLf) for each item in folder.Files if 0 <> instr(item.Name, "thumb") then 'not a thumbnail url = MapURL(item.path) Response.Write("

") counter = counter + 1 'If Clng(counter) Mod 4 = 0 Then 'it is divisible by 4 - do something 'Response.Write("

") 'Else 'it is not divisible by 4 - don't do something 'End If Response.Write(vbCrLf) end if next Response.Write("

" & vbCrLf) Response.Write(vbCrLf) end sub %>

Photo Gallery

Take a look at our past accomplishments, proving how we strive for perfection and quality craftsmanship!

<%ListFolderContentsTABLE("E:\kunden\homepages\8\d165867473\midwest\gallery")%>