codice:
Function toFlashImg(StrIn)
	Set Re = new RegExp
		Re.Global=True
		Re.IgnoreCase = True
		Re.Pattern = "(Height=|Width=)([\d])+"
		toFlashImg= Re.Replace(StrIn,"")
	Set Re = Nothing
End Function

'=========================
'Test
'=========================
StrImg = "[img][/img]"
StrImg = toFlashImg(StrImg)
Response.Write(Server.HtmlEncode(StrImg))