Xmlhttp Problem med ÆØÅ

Jeg fandt selv løsningen.

Dette virker.

Function HTTPGet(strURL) 'As String
        Dim strReturn ' As String
        Dim objHTTP '  As MSXML.XMLHTTPRequest
        If Len(strURL) Then
            Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
            objHTTP.open "GET", strURL, False
            objHTTP.send  'Get it.
            strReturn = objHTTP.responseBody
        End If
        HTTPGet = strReturn 
End Function


        r = HTTPGet("http://gamledanskeopskrifter.dk/page2.html")
    sOut = ""
    For i = 0 to UBound(r)
        sOut = sOut & chrw(ascw(chr(ascb(midb(r,i+1,1)))))
    Next
    strReturn = sOut


sitetext=sOut




sitetext har nu der hele inklusiv special tegn.