Baggrundfarve på den tekst der er søgt på

Jeg bruger nedenstående script til at søge i en Access database. Jeg har et par stedet set at man kan gøre sådan at det ord der er søgt på har en baggrundsfarve, eller er en anden farve, så det er nemt at genkende, når resultatet på søgningen listes. Er det muligt at tilføje på dette script??

Script:
<%
' Henter værdien fra soeg.htm
strKeyword = Trim(Request.Form("Keyword"))

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("search_form_user.asp")
    Else
    ' Hvis der er skrevet i feltet
    strKeyword = Replace(strKeyword,"'","''")
End If

' Opbygger en dynamisk SQL streng
strSQL = "SELECT ID, module, tc, subject, description, initials, catagory FROM tricks WHERE"
strSQL = strSQL & " (module LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (tc LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (subject LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (description LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (initials LIKE '%" & strKeyword & "%')"

' åbner DBen
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.Open "database"

' Skaber DSNLess forbindelse til DBen
DBQ="&Server.MapPath("search.mdb")

' Skaber et recordset udfra SQL strengen
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen
    Response.Write "<p><b>Search Result</b></p>"
    Response.Write "<table border=1>"
    Response.Write "<tr><td><b>Module</b></td><td><b>Transaction Code</b></td><td><b>Subject</b></td><td><b>Description</b></td><td><b>Initials</b></td></tr>"
    Do While Not rs.EOF
        Response.Write "<tr><td>" & rs("module") & "</td>"
        Response.Write "<td>" & rs("tc") & "</td>"
        Response.Write "<td>" & rs("subject") & "</td>"
        Response.Write "<td>" & rs("description") & "</td>"
        Response.Write "<td>" & rs("initials") & "</td></tr>"
        rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p>Der er ikke fundet noget på denne søgning</p>"
End If

' Rydder op efter os
myConn.Close
Set myConn = Nothing
%>

Hilsen

Kim