Semplice XMLHTTP

[slay]

ho aggiornato la libreria ho fatto come avete detto voi ma niente sempre il solito errore...questo è il codice della pagina

<%@ Language = "VBScript" %>
<% 
Response.Buffer = True 
Dim objXMLHTTP,xml 
Set xml = Server.CreateObject("Microsoft.XMLHTTP") 

xml.Open "GET", "http://www.dablones.org/", False 

xml.Send 

' Specify the content type to tell the browser what to do: 
Response.ContentType = "TEXT" 

' Binarywrite the bytes to the browser 
' Response.BinaryWrite xml.responseBody 
Response.write cleanHTMLcode(xml.responseText) 
Set xml = Nothing 
%>