|
|
|
| Home : Site Map |
| |
<%
FolderName= ""
ShowList()
SearchResponse=""
Sub ShowList()
FolderToCheck = server.mappath("\") &"/" & FolderName & "/"
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(FolderToCheck)
Set fc = f.Files
Response.Write ("| Whole website at your finger tip: | ")
For Each f1 in fc
Wfile = f1.name
if right(Wfile, 5)=".html" OR right(Wfile, 4)=".htm" then
SearchResponse= SearchResponse +"| " + " "+Wfile+" | "
end if
Next
'Response.Write ("Search results")
'Response.Write ("")
'if SearchResponse<>"" then
Response.Write SearchResponse
Response.Write (" ")
End Sub
%>
|
|
