Får en Syntax Error hver gang jeg kører mit script

Hej

Jeg får fejlen Syntax Error i første linie når jeg sætter dette script sammen med min anden kode...
Når jeg bare køre den i en fil alene kan den godt, men ikke sammen med anden kode...

function erstat(tekst)
    tekst = replace(tekst, "0", "")
    tekst = replace(tekst, "1", "En")
    tekst = replace(tekst, "2", "To")
    tekst = replace(tekst, "3", "Tre")
    tekst = replace(tekst, "4", "Fire")
    tekst = replace(tekst, "5", "Fem")
    tekst = replace(tekst, "6", "Seks")
    tekst = replace(tekst, "7", "Syv")
    tekst = replace(tekst, "8", "Otte")
    tekst = replace(tekst, "9", "Ni")
    erstat = tekst
end function

tekst = "2000"
tekstlaengde = len(tekst)
i = 0

do while i <= tekstlaengde
    teksten = left(tekst, 1)
    betegnelse = ""

    if teksten = "0" then teksten = "" end if
    if not teksten = "" then
        select case tekstlaengde
            case 1
                betegnelse = ""
            case 2
                betegnelse = "ti"
            case 3
                betegnelse = "hundrede"
            case 4
                betegnelse = "tusinde"
        end select
    end if

    tekst = right(tekst, (len(tekst) - 1))
    tekstlaengde = tekstlaengde - 1
    i = i + 1
    str = str & erstat(teksten) & betegnelse
loop
response.write "" & str