Porque me sale "?" al sacar el código fuente?

[kalandas]

Hola, probé como me dijistes y nada de nada, pero no te puedo dar ninguna url donde puedas probar el programa si me das un email te mando un jpg de lo que me sale para que lo veas, de todas formas te pongo el programa tal y como lo tengo entero pa ver si encuentras algo, porque lo que es yo...

Código:

<%
	link="http://www.elmundo.es"
	GetText link
%>
<%
function GetText(strURL)
	on error resume next
	Dim xml
	Set xml = Server.CreateObject("Microsoft.XMLHTTP")
	xml.Open "GET", strURL, False
	xml.setRequestHeader "Accept-Language", "sp"
	xml.setRequestHeader "Pragma", "no-cache"
	xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

	xml.Send
	cadena = Cstr(xml.responseText)
	Response.Charset="ISO8859-1"
	Response.Write(cadena)
	GetText=cad
	'response.Write(quitatags(cadena))
end function
%>