Error hvis XML URL ikke findes

Hvis det er en anden hjemmeside du vil hente, så har jeg gjordt det således.
De forskellige XML objecter kan du eksperimentere lidt med, men jeg mener den "prøver" i 4 secunder

'Set lObjSpider = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
Set lObjSpider = Server.CreateObject ("MSXML2.ServerXMLHTTP")
'Set lObjSpider = Server.CreateObject ("Microsoft.XMLHTTP")
       

        ' Kunne ikke oprette Internet Control
        If Err Then
            GetURL = "Error: " & Err.Description
        End If
       
        With lObjSpider
            .Open "GET", pStrURL, False, "", ""
            .Send
            GetURL = .ResponseBody
            For i = 0 to UBound(GetURL)                            sOut = midb(GetURL,i+1,1)
            Next
        End With
        Set LobjSpider = Nothing

Jeg kan ikke få det til at virke med dit eksempel

Der må være noget mere ?

luk