lave en replace fra danske tegn til ae, oe og aa

Hejsa eksperter!

Jeg prøver at få erstattet:

å med aa
Å med Aa
ø med oe
Ø med Oe
æ med ae
Æ med Ae

Jeg fatter dog ikke hvad jeg gør galt med nedenstående, det eneste den gør er at fjerne mellemrum???? jeg henter dataen fra mxaccess:

<%
navnet = (kunderne.Fields.Item("Virksomhedsnavn").Value)
navnet2 =  replace(navnet,"å", "aa")
navnet2 =  replace(navnet,"Å", "Aa")
navnet2 =  replace(navnet,"æ", "ae")
navnet2 =  replace(navnet,"ø", "oe")
navnet2 =  replace(navnet," ", "")
domaenenavn = navnet2
%>