rette unicode til i linktekst

Hej

Jeg har denne kode der henter navnene på mapperne i mit dir:

<%
Dim fso, fname, fcollection
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFolder = fso.GetFolder(Server.MapPath("."))
Set fcollection = objFolder.Files
for each subfolder in objFolder.subFolders
Response.Write ("<tr><td><a href='default.asp?Folder=" & subfolder.Name & "'>" & subfolder.Name & "</a></td></tr>")
next
%>

Når det kommer på siden bliver ø til 0xF8. Jeg vil derfor gerne lave en funktion der kan erstatte 0xF8 med ø i det "subfolder.Name" der bliver vist, men ikke i linket.

Jeg ved det er lidt storm P agtigt


Hilsen

Kristian