Markering af søgeord i resultat

kan det her bruges til noget, jeg har ikke prøvet funktionen, så jeg ved ikke den gør hvad du ønsker:

kig her: http://www.eksperten.dk/spm/128411

Vi har lige været "gennem møllen" i JavaScript i http://www.eksperten.dk/spm/241176 - du kan vælge at tilføje det script eller lave det tilsvarende i asp (kan ikke selv asp)

/ LJ
www.ljweb.com

Måske kan du bruge denne:

<%
Function markString(strInput,findStr)
Dim p, lc
  lc = LCase(strInput)
  findStr = LCase(findStr)
  p = inStr(lc, findStr)
  if (P > 0) then
    markString = ""
    do while (p > 0)
      markString = markString & Left(strInput, p - 1) & "<b>" & Mid(strInput, p, len(findStr)) & "</b>"
      strInput = Mid(strInput, p + len(findStr))
      lc = LCase(strInput)
      p = inStr(lc, findStr)
    loop
    markString = markString & strInput
  else
    markString = strInput
  end if
End Function

Function markAll(strInput, findStr)
Dim s
  markAll = strInput
  s = Split(findStr)
  for Each Word in s
    markAll = markString(markAll, Word)
  next
End Function

Response.Write(markAll("Dette er en tekst nogle af ordene er fremhævet. Ordene fremhæves hvis de findes i teksten.", "tekst ord"))
Response.Write("<br>")
Response.Write(markAll("Der lå en [kop] i skuffen, den var [rød].", "Rød kop"))
%>

Tak, det virker :)