Upper Lower Case

Det er vel din SQL der skal laves om der!
Kan jeg ik' lige se din SQL statement?

//>Rune

Her er den

strKeyword = Trim(Request.Form("Keyword"))
  If Len(strKeyword) = 0 Then
  Response.Clear
    Response.Redirect("ingen.asp")
    Else
      strKeyword = Replace(strKeyword,"'","''")
      End If
      strSQL = "SELECT funktionsenhed, Stilling FROM que_person WHERE"
      strSQL = strSQL & " OR (funktionsenhed LIKE '%" & strKeyword & "%')"
      strSQL = strSQL & " OR (stilling LIKE '%" & strKeyword & "%')ORDER BY stilling"

      set conn=server.createobject("adodb.connection")
    Conn.Open "Person"
  Set rs = Conn.Execute(strSQL)

Så skal replace udvides havde nogle ekstra parametre med så den er ligeglad med størrelsen på bogstavet.:

tmpstrin = Replace(rs("funktionsenhed"), strKeyword, "<b>" & strKeyword & "</b>",0,-1,1)

Den returnerer

Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'Replace'

Hvis jeg indsætter følgende

tmpstrin = Replace(rs("funktionsenhed"), strKeyword, "<b>" & strKeyword & "</b>",0,-1,1)

Ja ok jeg har skrevet 0 som første karakter prøv men denne så første karakter er 1:

tmpstrin = Replace(rs("funktionsenhed"), strKeyword, "<b>" & strKeyword & "</b>",1,-1,1)

Det virker nu, jeg kunne blot godt tænke mig at den ikke retter det displayede til lower/upper case alt efter hvad jeg har søgt på.

ok det så fordi strKeyword bliver indsæt i stedet for ordet som er de samme dog måske med stort eller småt. Så skal det nok laves med regexp sådan her.

Så denne linie
tmpstrin = Replace(rs("funktionsenhed"), strKeyword, "<b>" & strKeyword & "</b>",1,-1,1)

Skiftes ud med:

  Set regEx = New RegExp
  regEx.Global = true
  regEx.IgnoreCase = True
  regEx.Pattern = "(" & strKeyword & ")"
  Response.Write regEx.Replace(rs("funktionsenhed"), "<b>$1</b>")

  Set regEx = Nothing

Lige i øjet, Tak