xmlhttp

hej!

Jag har ett script där jag läser ut tabell och matcher från svenska fotbollsförbundets hemsida, men det jag undrar är hur jag kan ta bort länkarna från varje lag?
mitt script ser ut på följande vis:

Function SF(n)
	sFind = "<h2>Superettan</h2>"
	Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
	objHTTP.Open "GET", "http://www.svenskfotboll.se/t3supta.aspx?WCI=&TournamentId=36015", False
	objHTTP.Send
	str = objHTTP.responseText
	Set objHTTP = Nothing
	str = Right(str,Len(str)-InStr(str,sFind)+1-len(sFind))
	str = Left(str,InStr(str,"contftr")-300)
	a=split(str,"<br>")
	for i = 0 to Ubound(a)
		if i = n then
			exit for
		end if
                a(i) = Replace(a(i),"<a href"," ")
                'a(i) = Replace(a(i),"")
  	        myStr=myStr+a(i)+"<br>"
	next
	SF = myStr
End Function

jag testade att göra så här a(i) = Replace(a(i),"<a href"," ") men det tycks inte fungera?

om inte det går att ta bort länkarna är det möjligt att kunna koppla deras länkar till min sida, dvs att jag genom xmlhttp kopierar det som finns i länken?

sedan skulle jag vilja färga allt som har med Qviding att göra med rött, jag testade att göra detta a(i) = Replace(a(i),"Qviding FIF","<font color=red>Qviding FIFQviding FIF</font> ")

men det funka inte heller!

och min sista fråga i koden så gör jag detta:

	str = Right(str,Len(str)-InStr(str,sFind)+1-len(sFind))
	str = Left(str,InStr(str,"contftr")-300)

vad gör dessa 2 rader?