Får inga resultat med sökfunktion (union)

Jag får inga resultat eller felmeddelande när jag söker.

  <%
sok = request("sok")
%>
                  <%
set Conn=server.createobject("adodb.connection")
path="DBQ=" & server.mappath("../dbs/linxkoncept.mdb")
conn.open "driver={microsoft access driver (*.mdb)}; " & path," ",""
        
Set RS = conn.Execute("SELECT * FROM aktiviteter WHERE rubrik LIKE '%"&sok&"%' union select * from vision where rubrik LIKE '%"&sok&"%' union select * from deli where rubrik LIKE '%"&sok&"%' union select * from service where rubrik LIKE '%"&sok&"%' ORDER BY ordning")

%>
                  <%
do until rs.eof
n = replace(rs("rubrik"),sok,"<SPAN CLASS=""sokresultat"">" & sok & "</SPAN>",1,-1,vbTextCompare)
%>

Sen skriver jag ut med resultatet med <%=n%>

Men som sagt. Jag får inga resultat.

[Redigerat av StefanP den 12 feb 2002]