bueno, por lo menos ya falta menos
Lo que se podria hacer es que como parte del resalte pues que ponga tambien la palabra en mayusculas, con lo que quedaria asi:
Código:
texto=replace(texto,request("busca"),"<strong>"&ucase(request("busca"))&"</strong>",1,-1,1)