Markere søgeresultat

Har du prøvet med replace i stil med dette:

str = "lang streng som skal søges i"
find_dette = "peter"

str = replace(str, find_dette, "<b>" & find_dette & "</b>")

Response.write str

Du skal bruge funktionen Replace

find = Request.Form("searchfield")
s = RS("Felt til udskrivning")
s = Replace(s, find, "<b>" & find & "</b>") ' Ændre søgetekst til fed

Hej - det virker nu med nedenstående kode:

If Trim(Request.Form("searchfield")) <> "" Then
if navn <> "" then
find = (lcase(Request.Form("searchfield")))
s = (lcase(RS("Navn")))
s = Replace(s, find, "<font color='#CC0000'>" & find & "</font>")
response.write "Navn: <b> " & s & "</b><br>"
end if
else
if navn <> "" then
response.write "Navn: <b>" & navn & "</b><br>"
end if
end if

Problemet er (som I sikkert kan se, at den skriver "navn" med små bogstaver. Er der en nem måde at komme omkring det på? Jeg har gjort det på flg. lidt rodet måde:

If Trim(Request.Form("searchfield")) <> "" Then
if navn <> "" then

'Først gøres søgestrengen lowercase
find = (lcase(Request.Form("searchfield")))
           
'Derefter løbes hvert ord i søgestrengen igennem og første bogstav laves stort
sOpdel = split(find) : find=""       
for i=0 to UBound(sOpdel)
sChar = Ucase(left(sOpdel(i),1))
sOpdel(i) = replace(sOpdel(i),sChar,sChar,1,1,1)
find = find & sOpdel(i) & " "
next
           
find = Trim(find) : s = RS("Navn")           
s = Replace(s, find, "<font color='#CC0000'>" & find & "</font>",1,1,1)
response.write "Navn: <b> " & s & "</b><br>"
end if
else
if navn <> "" then
response.write "Navn: <b>" & navn & "</b><br>"
end if
end if

Det virker - også hvis man søger på "Peter Amager" og der i databasen står "Peter Amager Petersen" - så bliver både "Peter" og "Amager" markeret med rødt. Men hvis man søger på "Peter Petersen" finder den det ikke. Kan man klare den?

Tak for hjælpen

Nej ikke umidelbart så skal du lave det som to ord man søger på og markere. Både Peter og Petersen.