GetHTML med æøå

Jeg har iøvrigt ingen mulighed for at indstallere nye plugins på serveren.

Hvis du sætter dette ind i toppen af dine XML dokumenter kan XML godt forstå ÆØÅ!

<?xml version="1.0" encoding="ISO-8859-1"?>

//>Rune

Et eks.:

  <?xml version="1.0" encoding="ISO-8859-1" ?>
<indhold>
  <tekst>
    <overskrift>Velkommen</overskrift>
  </tekst>
<tekst>
  <index>Velkommen til webcorner.dk Webcorner er et nyopstartet firma, som <index>
  </tekst>
  </indhold>

//>Rune

Nej
Jeg har ikke udtrykt mig klart nok så..
Det jeg mener er at Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
ikke henter html-koden fra sitet med ÆØÅ den skriver istedet ? og fjerner resten af linien.
Helt specifikt skal jeg bruge noget ASP-kode der kan hente et andet sites html-kode via internettet, hvor source-koden indeholder ÆØÅ.
Jeg har ingen mulighed for at få det andet site til at lave deres kode om og det er i HTML og ikke i XML. Jeg bruger bare et XML object til noget helt andet end det det er lavet til da det virker (bortset fra ÆØÅ)

tror jeg fik det hele med denne gang :)

Well, det er umuligt at hente noget tekst fra et andet site, via ASP...! -Så skulle det være via Java! (ved ikke om det kan lade sig gøre med Java, men det er vidst den eneste mulighed) - En anden mulighed var at få det andet site til at lægge alt deres tekst over i en database, hvor du så derfra kunne hente deres tekster!

//>Rune

Hmm ovenstående eks. virker fint uden ÆØÅ, så det kan jo lade sig gøre...selvom det er et hack.. nogen der har et hack der virker med ÆØÅ så vil jeg sætte stor pris på det....

vh Sabro

ahhh har fundet det... tak for hjælpen Rune. det hjalp faktsik en hel del, da jeg ledte i andre retninger efter løsningen som er et kæmpe hack stykket sammen af 40 forskellige artikler om XML.

Se nu vil jeg jo gerne give dig de point, da du rent faktisk hjalp mig, så kan du lige ligge endnu et svar?

Løsningen:

<%
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 "POST", strURL, False
            objHTTP.send  'Get it.
            body8209 = objHTTP.responseBody
            set objHTTP = nothing
            sOut = ""
            For i = 0 to UBound(body8209)
                sOut = sOut & chrw(ascw(chr(ascb(midb(body8209,i+1,1)))))
            Next
            strReturn = sOut
        End If
        HTTPGet = strReturn 
End Function
    r = HTTPGet("https://bet24.parspro.com/bet24Web/results.jsp")
    response.write(r)
%>

coool tjek lige tidspunktet for mit tidligere indlæg

ok.. fair nok ;-)

svar

Thx 4 Poinz
//>Rune