Lite replace prob.

Den skriver inte ut något.. Vad har jag gjort för fel?

<%

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", "http://www.privataaffarer.se/default_frame.asp", False

objHTTP.Send
strHTML=objHTTP.responseText
Set objHTTP = Nothing

Set objRegExp = New regexp
objRegExp.Global = false
objRegExp.IgnoreCase = true
objRegExp.Pattern = "<font face=""Geneva, Arial, Helvetica"" size=""6"" class=index1><b>.*</b></font>"
Set hittade = objRegExp.Execute(strHTML)

Function red(strText) 
	strText = replace(strtext,"<font face=""Geneva, Arial, Helvetica"" size=""6"" class=index1><b>"," ")
	strText = replace(strtext,"</b></font>"," ")
End Function 

For each item in hittade

response.write red(item.value) 

Next

%>