<% id = request("id") sid = request("sid") function getBoolean( value ) getBoolean = "false" if ( value ) then getBoolean = "true" end function if not isNumeric(id) then response.write("
") response.write("Project id is missing") else if isNumeric(id) then set Obj = folders.ProjectByIID(id) SComplete = Obj.SearchResultComplete(sid) if SComplete < 101 then response.write("
") response.write("Search complete: " & SComplete & "%") else response.write("
") cnt = Obj.SearchResultCount(sid) response.write("

# Found pages: " & cnt & "

") for i = 0 to cnt - 1 SRes = Obj.SearchResult(sid, i) response.write(SRes) next response.write("

") end if end if end if%>