Replace danske tegn med ae oe og aa driller

Hejsa eksperter
Jeg ved godt det spørgsmål er stilt før og jeg har også kigget en del på de andre svar.
Men i mit tilfælde kan jeg ikke lige få det til at virke.
pointen med den function er udskifte tegn indtastet i en form til en streng som jeg kan bruge til at navngive en mappe på en server.
eks: En bruger indtaster "Gården (På landet) - ved søen"
min function skal så lave den om til "Gaarden_Paa_landet_-_ved_soeen".
Men resultatet med nedenstående function giver "grden_p_landet_-_ved_sen"
Jeg håber en af jer kan se hvorfor

Function RemoveIllegals(str)
'First convert Danish chars and space
str = Replace(str, " ", "_") 'Space
str = Replace(str, "æ", "ae") 'æ Chr(230)
str = Replace(str, "Æ", "Ae") 'Æ Chr(198)
str = Replace(str, "ø", "oe") 'ø Chr(248)
str = Replace(str, "Ø", "Oe") 'Ø Chr(216)
str = Replace(str, "å", "aa") 'å Chr(229)
str = Replace(str, "Å", "Aa") 'Å Chr(197)
'Remove all chars not allowed
allowed="abcdefghijklmnopqrstuvwxyz0123456789_-"
tmp=""
  for i = 1 to len(str)
    if instr(1,allowed,mid(str,i,1),1)>0 then
      tmp=tmp & mid(str,i,1)
    end if
  next
  RemoveIllegals = LCase(tmp)
end function

function bliver kaldt således:
strgallery = RemoveIllegals(Request.Form("gallery"))