<%
Function GetSiteMap()
dim SiteMap
dim fs, folder, item, url, TempFile
dim ShowFile, TempShowFile
dim OKFileExtensions, TempArray, i
OKFileExtensions = "asp,htm,php"
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(g_RootFolderPath)
'Display a list of files
SiteMap = ""
for each item in folder.Files
url = item.Name
TempFile = item.Name
' Exceptions
ShowFile = true
TempShowFile = false
TempArray = split(OKFileExtensions,",")
for i = 0 to ubound(TempArray)
if right(TempFile,len(TempArray(i))) = TempArray(i) then
TempShowFile = true
TempFile = replace(TempFile,"." & TempArray(i), "")
exit for
end if
next
if TempShowFile = false then ShowFile = false
if left(TempFile,1) = "_" then ShowFile = false
TempFile = replace(TempFile,"_", " ")
TempFile = TitleCase(TempFile)
if TempFile = "Index" then TempFile = "Home Page"
if TempFile = "404" then ShowFile = false
if TempFile = "Form" then ShowFile = false
if TempFile = "Tell A Friend" then ShowFile = false
if TempFile = "Print" then ShowFile = false
if ShowFile then
SiteMap = SiteMap & "- " & _
TempFile & "" & _
"
" & vbCrLf
end if
next
SiteMap = SiteMap & "
"
GetSiteMap = SiteMap
End Function
%>
Site Map
<%=GetSiteMap%>