sitemap parametercount5 tspstring header value<html><title>sitemap</title><body><h1>Sitemap</h1> tspstring footer value<p>Sitemap created with Belle Nuit Textfilter</p></body></html> tspstring root value tspstring excludetag value<--!NOSITEMAP--> tspboolean indexonly valuetrue dim text,nl,header,footer,path,root,excludetag,folder,lastfolder as string dim i,j,k,tc,st,en,level,oldlevel as integer dim indexonly as boolean tc = gettextcount nl = getnewline header = getparameter("header") footer = getparameter("footer") root = getparameter("root") excludetag = getparameter("excludetag") indexonly = (getparameter("indexonly")="true") print header + nl oldlevel = 1 openprogress tc for i = 1 to tc if usercancelled then exit end if openprogress tc setprogress i text = getothertext(i) if instr(getfilename,".htm")>0 then if excludetag="" or instr(text,excludetag)=0 then if not indexonly or instr(getfilename,"index.htm")>0 then st = instr(0,text,"") if st>0 then st = st+7 en = instr(st,text,"") if en>0 then path = replaceall(getfilename,getfolderseparator,"/") level = countfields(path,"/") folder = left(path,len(path)-len(nthfield(path,"/",level))) if folder<>lastfolder then for j = 1 to level if nthfield(folder,"/",j) <> nthfield(lastfolder,"/",j) then for k = j to oldlevel-1 print "" + nl next for k = j to level -1 if not indexonly then print "

" + nthfield(path,"/",k) + "

" end print "
" + nl next exit end if next end if //folder<>lastfolder print "

" print mid(text,st,en-st) print "

"+ nl lastfolder = folder oldlevel = level end if // en<>0 end if // st <> 0 end if // indexonly end if // excludetag end if // filename next for k = j to oldlevel-1 print "
" + nl next print footer + nl closeprogress