Søgescript

Jeg mangler et søgescript der kan søge i en mappe MED UNDERMAPPER.
Jeg har i øjeblikket følgende script, men det kan kun søge alle filer i en bestemt mappe igenem.


<%

search = "test"

relpath = "tekstfiler/"
serverpath = Server.MapPath(relpath)

Set filsys = CreateObject("Scripting.FileSystemObject")
Set folder = filsys.GetFolder(serverpath)

set files = folder.Files

for each file in files

Set stringobj = filsys.OpenTextFile(serverpath & "/" & file.name)
tmpstring = stringobj.Readall

if (search <> "" AND inStr(1, tmpstring, search)) then
Response.Write("S&oslash;geord fundet i <a href=''" & relpath & File.name & "''>" & File.name & "</a><br>")
end if

tmpstring = ""
stringobj.close
next

%>


M.v.h.

      Svend.