Fireside Bar & Grill

<%@ 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) dim foundAPic foundAPic = False for each item in folder.Files if 0 <> instr(item.Name, "thumb") then 'not a thumbnail foundAPic = True 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 if (foundAPic = False) then Response.Write("

There are currently no photos in Fireside's gallery...

") end if Response.Write("

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

www.fireside-grill.com

523 SE 8th St Altoona, IA

Welcome to Fireside Grille

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