Function ReplaceNoIgnoreCase(str,replStr)

If len(replStr)<1 or str="" Then

ReplaceTest=str

Exit function

End If

Dim LoopN

LoopN=1

Dim TmpStr,inStrN,LenreplStr,Ustr,UreplStr

LenreplStr = Len(replStr)

TmpStr = str

Ustr = Ucase(str)

UreplStr = Ucase(replStr)

str=""

inStrN = inStr(Ustr,UreplStr)

Do While inStrN>0 and TmpStr<>""

LoopN = LoopN+1

If LoopN>10 Then Exit Function

str=str & Left(TmpStr,inStrN-1)

TmpStr = Mid(TmpStr,inStrN)

UStr = Mid(UStr,inStrN)

str=str & "" & Left(TmpStr,LenreplStr) & ""

TmpStr = Mid(TmpStr,LenreplStr+1)

UStr = Mid(UStr,LenreplStr+1)

inStrN = inStr(Ustr,UreplStr)

If inStrN<1 Then str=str&TmpStr

Loop

ReplaceTest = str

End Function

Response.Write "

result:"&ReplaceNoIgnoreCase("WenMingdazhou Mingda Electrical Mingda Equipment

Co.mIngda,Ltd ","Mingda")