æ ø å ????

Jeg har hentet denne færdige kode på en anden side.
Den kan hente
META DESCRIPTION
META KEYWORDS
osv.
Problemt er æ, ø og å
den tager tilsyneladende bogstaver efter et æ,ø eller å
Prøv evt. her: http://www.istoria.dk/parse/parse/demo.asp



Koden:
clsHTMLParser.asp
' ------------------------------------------------------------------------------
Class clsHTMLParser
' ------------------------------------------------------------------------------
    Private mStrHTML
    Private mObjRegExp
    Private mObjMatches
    Private mObjMatch
    Public Title
    Public Keywords
    Public Description
' ------------------------------------------------------------------------------
    Public Property Let HTML(ByRef pStrHTML)
        mStrHTML = pStrHTML

        Set mObjRegExp = New RegExp
        mObjRegExp.IgnoreCase = True

        Call ParseTitle()
        Call ParseDescription()
        Call ParseKeywords()

        Set mObjMatch = Nothing
        Set mObjMatches = Nothing
        Set mObjRegExp = Nothing

    End Property
' ------------------------------------------------------------------------------
    Public Property Get HTML()
        HTML = mStrHTML
    End Property
' ------------------------------------------------------------------------------
    Private Sub ParseTitle()
        Title = ""
        mObjRegExp.Pattern = "<TITLE>([^<]*)</TITLE>"
        Set mObjMatches = mObjRegExp.Execute(mStrHTML)
        If mObjMatches.Count = 0 Then Exit Sub
        Title = mObjMatches.item(0).Value
        Title = Replace(Title, "<TITLE>", "", 1, -1, vbTextCompare)
        Title = Replace(Title, "</TITLE>", "", 1, -1, vbTextCompare)
    End Sub
' ------------------------------------------------------------------------------
    Private Sub ParseDescription()
        Description = ""
        mObjRegExp.Pattern = "<META[^>]+(name=""description""|content=""([^""]*)"")[^>]+(name=""description""|content=""([^""]*)"")[^>]*>"
        Set mObjMatches = mObjRegExp.Execute(mStrHTML)
        If mObjMatches.Count = 0 Then Exit Sub
        Description = mObjMatches.item(0).Value
        Description = Mid(Description, InStr(1, Description, "content=""", vbTextCompare) + 9)
        Description = Mid(Description, 1, InStr(1, Description, """", vbTextCompare) -1)
    End Sub
' ------------------------------------------------------------------------------
    Private Sub ParseKeywords()
        Keywords = ""
        mObjRegExp.Pattern = "<META[^>]+(name=""keywords""|content=""([^""]*)"")[^>]+(name=""keywords""|content=""([^""]*)"")[^>]*>"
        Set mObjMatches = mObjRegExp.Execute(mStrHTML)
        If mObjMatches.Count = 0 Then Exit Sub
        Keywords = mObjMatches.item(0).Value
        Keywords = Mid(Keywords, InStr(1, Keywords, "content=""", vbTextCompare) + 9)
        Keywords = Mid(Keywords, 1, InStr(1, Keywords, """", vbTextCompare) -1)
    End Sub
' ------------------------------------------------------------------------------
    Public Function GetURL(ByRef pStrURL)

        Dim lObjSpider
        Dim strText

        If pStrURL = "" Then Exit Function

        On Error Resume Next

        ' Different variations of XML objects
        'Set lObjSpider = Server.CreateObject ("MSXML2.XMLHTTP.3.0")
        'Set lObjSpider = Server.CreateObject ("MSXML2.ServerXMLHTTP")
        Set lObjSpider = Server.CreateObject ("Microsoft.XMLHTTP")
       

        ' Could not create Internet Control
        If Err Then
            GetURL = "Error: " & Err.Description
            Exit Function
        End If
       
        On Error Goto 0

        With lObjSpider
            .Open "GET", pStrURL, False, "", ""
            .Send
            GetURL = .ResponseText
        End With
        Set LobjSpider = Nothing

        HTML = GetURL
       
    End Function
' ------------------------------------------------------------------------------
End Class
' ------------------------------------------------------------------------------
%>


KODEN:
demo.asp

<!--#INCLUDE FILE="clsHTMLParser.asp"-->
<%
Dim StrURL
Dim StrHTML
Dim ObjParser

StrURL = Request.QueryString("URL")
%>
<H1>HTML Parser</H1>
<P>
    This script will request the page from the
    server specified in the URL and parse the
    Title, Description, and Keywords for you.
</P>
<FORM>
    <INPUT size="50" name="URL" value="<%=StrURL%>"><BR>
    <INPUT type="Submit" value="Parse">
</FORM>
<BR><BR>
<%
If Not StrURL = "" Then
    Set ObjParser = New clsHTMLParser
    With ObjParser
        StrHTML = .GetURL(StrURL)
        %>
        <TABLE border="1">
            <TR>
                <TD>Title</TD>
                <TD><%=.Title%></TD>
            </TR>
            <TR>
                <TD>Keywords</TD>
                <TD><%=.Keywords%></TD>
            </TR>
            <TR>
                <TD>Description</TD>
                <TD><%=.Description%></TD>
            </TR>
        </TABLE>
        <HR>
        <%
        Response.Write Replace(Server.HTMLEncode(StrHTML), vbCrLf, "<BR>")
    End With
    Set ObjParser = Nothing
End If
%>