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>