<%
' used to highlight text midstream in HTML code GREAT for search results,
' just highlight the output values with the search item, contains support
' for multi worded search results as in "yellow hump-backed whales"
' it'll highlight each portion of the search phrase in the output of the page
' Junk is the mass text, Item is the search phrase,
' highlightcolor is standard HTML Hex numbers without the # like "FF0000" for red
Function Highlight(Junk,Item,HighlightColor)
On Error Resume Next
HighlightTemp = Junk
StartPoint = InStr(Ucase(Junk),UCASE(Item))
' response.write "|" & Startpoint & "|unsplit<br>"
If StartPoint > 0 then
SPStr = Mid(Junk,StartPoint,Len(Item))
HighlightTemp = Replace(HighlightTemp,SPStr,"<span style=""background-color : #" & HighlightColor & """>"&SPStr&"</span>")
End If
If Instr(item," ") > 0 Then
HighlightArr = Split(Item," ")
HighlightTemp = Junk
For HighlightArrVar = 0 to Ubound(HighlightArr)
StartPoint = InStr(Ucase(HighlightTemp),UCASE(HighlightArr(HighlightArrVar)))
' response.write "|" & Startpoint & "|" & HighlightArr(HighlightArrVar) & "<br>"
If StartPoint > 0 then
SPStr = Mid(HighlightTemp,StartPoint,Len(HighlightArr(HighlightArrVar)))
HighlightTemp = Replace(HighlightTemp,SPStr,"<span style=""background-color : #" & HighlightColor & """>"&SPStr&"</span>")
End If
Next
ElseIf Instr(item,",") > 0 Then
HighlightArr = Split(Item,",")
HighlightTemp = Junk
For HighlightArrVar = 0 to Ubound(HighlightArr)
StartPoint = InStr(Ucase(HighlightTemp),UCASE(HighlightArr(HighlightArrVar)))
' response.write "|" & Startpoint & "|" & HighlightArr(HighlightArrVar) & "<br>"
If StartPoint > 0 then
SPStr = Mid(HighlightTemp,StartPoint,Len(HighlightArr(HighlightArrVar)))
HighlightTemp = Replace(HighlightTemp,SPStr,"<span style=""background-color : #" & HighlightColor & """>"&SPStr&"</span>")
End If
Next
End If
If HighlightTemp <> "" then
Highlight = HighlightTemp
Else
Highlight = Junk
End If
End Function
%>