LCase på alle html tags ?

Jeg fandt frem til følgende function :

Function funcLCaseHTMLTags(strHTML)
  Dim regEx, strTagLcase

  strTagLcase = strHTML

  Set regEx = New RegExp
  regEx.IgnoreCase = True
  regEx.Global = True
  regEx.Pattern = "<[^>]*>"

  strOutPut = regEx.Replace(strTagLcase, lcase(strTagLcase))

  Set regEx = Nothing

  funcLCaseHTMLTags = strOutPut
End Function

Men den udskriver teksten lige så mange gange som der er htmltags og jeg kan ikke lige se hvad der skal ændres men det må være noget i denne linie :

strOutPut = regEx.Replace(strTagLcase, lcase(strTagLcase))

Håber det giver lidt mere at arbejde med :o)

/Websam

Prøv at lave din funktion sådan her:

function htmlToLower(inputstreng)
dim regcon
set regcon = new RegExp
regcon.pattern = "(<(.*?)>)"
regcon.ignoreCase = true
regcon.Global = true
set matchs = regcon.Execute(inputstreng)
for each match in matchs
  inputstreng = replace(inputstreng,match.value,lcase(match.value),1,-1,1)
next
htmlToLower = str
end function