Cheap Affordable Dental Insurance Plans
<% Set FSO = Server.CreateObject("Scripting.FileSystemObject") For Each Fil In FSO.GetFolder("D:\Websites\www.dental--care--information.com").Files ThisFile = Fil.Name If Right(LCase(ThisFile), 5) = ".html" AND Left(LCase(ThisFile), Len("sitemap.html")) <> "sitemap.html" AND LCase(ThisFile) <> "index.html" Then %> <%= Replace(Replace(ThisFile, ".html", ""), "-", Space(1)) %>
<% End If Next Set FSO = Nothing %>