hjælp til læs fra fil

Jeg er ved at lave noget sprogkontrol på en hjemmeside. Til hvert sprog har jeg lavet en sprogfil. ex.

Danish.txt:

*#00001:Velkommen til
*#00002:Mere info
*#00003:Vælg sprog:

i min kode har jeg så førlgende funktion til at hive teksten ud:

<%
Function TextInput(intTextCode)
    Select Case session.LCID
    Case "1030"
        languageTxt = "Danish.txt"
    Case "1044"
        languageTxt = "Norweigian.txt"
    Case Else
        languageTxt = "English.txt"
    End Select
   
    Dim fso, f, filespec
    Set fso = CreateObject("Scripting.FileSystemObject")
    filespec = Server.Mappath("/languageFile/"&languageTxt)
    Set f = fso.OpenTextFile(filespec,1)
   
    f.ReadLine
    Do While not Mid(Server.HTMLencode(f.ReadAll), 3, 5) = intTextCode AND not f.AtEndOfStream
        f.ReadLine
    Loop
    if not f.AtEndOfStream then
          strTxt = Server.HTMLencode(f.ReadAll)
    end if
    f.Close
    set fso = nothing
    set filespec = nothing
   
    TextInput = strTxt
End Function
%>


Der hvor teksten skal sættes ind, skriver jeg følgende:

<%response.write TextInput(00001)%>

Så skal den gerne skrive det ud der står på

Velkommen til

Men der kommer ikke rigtig noget ud. Nogen ideer til hvad der er galt?