Provo così, ma dice access denied:

codice:
<%

'Dichiaro la variabile
Dim objXMLHttp

'Instanzio l'oggetto XMLHttp
Set objXMLHttp = Server.CreateObject("Msxml2.xmlhttp")

'Costruisco e invio la richiesta
objXMLHttp.Open "GET", "http://1.4.9.21/cartella_appoggio/", false
objXMLHttp.Send

'Stampo la risposta
Response.Write(objXMLHttp.responseText)

'Faccio pulizia
Set objXMLHttp = Nothing

%>