Problem med danske bokstaver, ASP

Hejsa NG.

Jeg bruger følgende kode til at udtrække nyhedsoverskrifter på min forside:
<%
strNSQL = "SELECT TOP 48  * FROM forumindlaeg WHERE anmeldtype = 'nyhed' AND online = True  ORDER BY id DESC"
Set rs = objConn.Execute(strNSQL)

do while (not rs.EOF)

WriteNews = fncTextChangeNewsList(rs("emne"))

Response.Write ("<a class='boks' href='/news.asp?mode=news_show&amp;id=" & rs("id") & "' title='" & rs("emne") & "'><img src='grafik/gfx/arrowright.gif' border='0' alt='Arrow'> " & left(WriteNews,20) & "</a><br />")

rs.MoveNext
loop%>

Problemet er at nogle er nyhederne ser sådan ud:

- Madagascar 2&q
- "Borat" &#
- Stjerneskud - 100 &#

Jeg har prøvet med:
Function fncTextChangeNewsList(strTextNewsList)
strTekstNewsList = Trim(strTextNewsList)
fncTextChangeNewsList = Replace(strTekstNewsList,"'","'")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"""","""")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"  "," &nbsp;")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,vbCrLf,"<BR>")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"å","&aring;")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"æ","&aelig;")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"ø","&oslash;")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"Å","&Aring;")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"Æ","&AElig;")
fncTextChangeNewsList = Replace(fncTextChangeNewsList,"Ø","&Oslash;")
End Function

Også så skrive:
WriteNews = fncTextChangeNewsList(rs("emne"))

Men det virker ikke så længe jeg har denne:
left(WriteNews,20)