find visse ord og farv dem

Du kan bruge replace:

ord = "eksperten"
str = replace(str,ord,"<font color=""red"">" & ord & "</font>",1,-1,1)

Men så vil Eksperten bliver til eksperten og den vil også finde hvis ordet indgår i andre ord.

En anden mulighed kunne være

ord = "(eksperten|et andet ord)"

Set regex = New RegExp
regex.IgnoreCase = True
regex.Global = True
regex.Pattern = ord

str = regex.Replace(str, "<font color=""red"">$1</font>")

kan man ikke få den ud som man får den ind... med store og små bogstaver? og hvad med en hel line? hvis nu "her er noget tekst" kan man så få den til at være rød?

så skan den søge efter " og "

jo men regular expresseion:
<%
str = "streng her"

ord = "eksperten"

Set regEx = New RegExp
regEx.Global = true
regEx.IgnoreCase = true
regEx.Pattern = "(^|[^\wæøå])(" & ord & ")([^\wæøå]|$)"
str = regEx.Replace (str,"$1<font color=""red"">$2</font>$3")
Set regEx = Nothing

Response.Write str
%>

squashguy den har jeg prøvet med den taget også ordet "en"...  og det vil jeg også godt undgå... f.eks i ordet bilen så bliver "en" med rød og det skal den ikke

eagleeye er det med stort og små bogstaver eller var det med en hel line?

store og små,
hvad mener du med hel linje?

Function ColorWord(strContent, strWord)
Dim arrTemp, i
arrTemp = Split(strContent, " ")
For i = 0 To Ubound(arrTemp)
  If LCase(arrTemp(i)) = LCase(strWord) Then
    arrTemp(i) = "<font color=red" & arrTemp(i) & "</font>"
  End If
Next
End Function

'Kald funktionen sådan her:
Response.write ColorWord("På eksperten kan du få svar på hvad som helst","eksperten")

der er ingen problem i at skrive en hel linje som ord hvis der er det du mener??

ord = "Dette er mange ord som alle skal være der .."

sorry men har ikke lige haft tid.. svar lige dem som skal have point