Visa söksträng i fält med fet text

jag har ett sök script som söker igenom 2 fält.

<%@ LANGUAGE=VBScript %>
<%Response.buffer = true 
Dim Connect, conntemp, DSNtemp
Dim rs
Set Connect=server.CreateObject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/filmer.mdb")
Connect.Open DSNtemp
SQLstmt = "SELECT * From FILM WHERE film_namn LIKE '%" & Request.Form("sok")& "%' Or film_res LIKE '%" & Request.Form("sok")& "%' "
Set RS = Connect.Execute(SQLstmt)
%> 
<%
If request.form("sok")="" Then
response.redirect("filmer.asp")
%> 

<%else%> 
Resultatet av din sökning<br>
<%Do Until rs.eof %> 
<%=RS("film_namn")%><br>
<%=left(RS("film_res"), 100)&"..."%><br><br>

<% 
rs.movenext
loop
rs.close
%> 
<% End If%> 
<% connect.close %>

Nu skriver han ju ut recensionen under filmtiteln. Men om man vill att det ord man sökt på ska visas med fet stil där han hittat det. NU tar den ju endast ut 100 tecken av recensionen, men den ska helst ta ut 100 ord tecken där han har hittat sökordet (som markeras med fet stil)..Hur fean gör man då ? Någon som har en sådan funktion redan kanske...

[Redigerat av erka den 25 okt 2000]