Mi funziona:
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
lResolve = 2000 ' 5 seconds
lConnect = 2000 ' 5 seconds
lSend = 2000 ' 15 seconds
lReceive = 12000 ' 15 seconds

objXMLHTTP.setTimeouts lResolve, lConnect, lSend, lReceive

objXMLHTTP.Open "GET", strAdd, false
objXMLHTTP.Send
strSource = objXMLHTTP.responseText
Set objXMLHTTP = Nothing

Mentre non funziona:
Set objXMLHttp = Server.CreateObject("Msxml2.XMLHTTP.4.0")
lResolve = 2000 ' 5 seconds
lConnect = 2000 ' 5 seconds
lSend = 2000 ' 15 seconds
lReceive = 12000 ' 15 seconds

objXMLHTTP.setTimeouts lResolve, lConnect, lSend, lReceive

objXMLHTTP.Open "GET", strAdd, false
objXMLHTTP.Send
strSource = objXMLHTTP.responseText
Set objXMLHTTP = Nothing

da l'errore:
Proprietà o metodo non supportati dall'oggetto: 'objXMLHttp.setTimeouts'

Sembra che la proprietà setTimeouts non funzioni con Msxml2.XMLHTTP.4.0.

C'è una soluzione? con MSXML2.ServerXMLHTTP ho problemi con le accentate, senza setTimeouts si blocca il server.