<% if len(body)>100 then searchstring=mid(body,1,100) else searchstring=body end if searchstring= right(replace(searchstring,vbcrlf," "),len(searchstring)-instr(1,searchstring,chr(1),0)) searchstring=space(1)&searchstring&space(1) %>