mea culpa, per xmlhttp devi usare status:

codice:
	If xml.Status <> 200 Then
    		Response.Write (xml.Status & ": " & xml.StatusText) 
	Else
		Response.Write xml.ResponseText
	End If