Sök i databasen

Det funkar inte riktigt som det ska. Det blir inget felmeddelande, men texten man söker på (som finns i nyheten som kommer upp) blir heller inte tjock. Här e koden för resultat sidan:

<!--#include file="inc_db.asp" -->

<% sok = "'%" & Request.Form("search") & "%'" %>

<% SQL = "SELECT * From news " & _
" WHERE writer like " & sok & _
" OR news like " & sok & _
" OR topic like " & sok & _
 " OR datum like " & sok
Set objRecSet = objConn.Execute(SQL)

if objRecSet.EOF Then
Response.Redirect("error.asp")
Else %>

<% Do Until objRecSet.EOF %>

<% Dim all, n
all = "<span class='topic'><b>"& objRecSet("topic") &"</b></span><br><span class='date'>"& objRecSet("writer") &" - "& objRecSet("datum") &"</span><br>"& objRecSet("news") &"<br><br>"
n = replace(all,sok,"<b>" & sok & "</b>")
Response.Write n &"<br>" %>

<% objRecSet.MoveNext
Loop %>

<% End if %>

<% objConn.Close
Set objRecSet = Nothing
Set objConn = Nothing %>

<a href="search.asp">New search</a>

Någon som har en lösning?