Funktion Text Change virker ikke

Hejsa Ng.

Nogen der kan hjælpe mig med hvorfor min fncTextChange ikke virker:

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../../db/data.mdb")                   
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM tvmovies WHERE id LIKE '" & Request.QueryString("id") & "'"
  Function fncTextChange(strText)
            strTekst = Trim(strText)
              strTekst = Replace(strTekst,"01","DR")
              strTekst = Replace(strTekst,"02","TV 2")
              strTekst = Replace(strTekst,"03","TV 2 Charlie")
              strTekst = Replace(strTekst,"04","TV 2 Zulu")
              strTekst = Replace(strTekst,"05","TV 2 Film")
              strTekst = Replace(strTekst,"06","TV 3")
              strTekst = Replace(strTekst,"07","TV 3+")
              strTekst = Replace(strTekst,"08","Kanal 4")
              strTekst = Replace(strTekst,"09","DR 2")
              strTekst = Replace(strTekst,"10","Kanal 5")
              fncTextChange=strTekst
            End Function
rs.open sql, conn, 1, 3
   
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
'Opdaterer felterner
rs.update

rs("film") = Server.HTMLEncode(Request("film"))
rs("spilletid") = Request("spilletid")
rs("showkanal") = Server.HTMLEncode(Request("showkanal"))
rs("dato") = Request("dato")
rs("genre") = Server.HTMLEncode(Request("genre"))
rs.update
Response.Write("Tv-Guide-Film er opdateret")
end if

%>

<form method="post" action="admin.asp?mode=tvguide_correct&id=<%=rs("Id")%>">
<strong>Titel</strong><br>
<input class="forms" size="40" type="text" name="film" value="<%=rs("film")%>"><br><br>
<strong>Spilletid</strong><br>
<input class="forms" size="10" type="text" name="spilletid" value="<%=rs("spilletid")%>"><br><br>
<strong>Kanal:</strong><br>
<select class="forms" name="showkanal">
<option value="<%=rs("showkanal")%>"><%=fncTextChange(rs("showkanal"))%></option>
<option value="01">DR</option>
<option value="09">DR 2</option>
<option value="02">TV 2</option>
<option value="04">TV 2 Zulu</option>
<option value="03">TV 2 Charlie</option>
<option value="05">TV 2 Film</option>
<option value="06">TV 3</option>
<option value="07">TV 3+</option>
<option value="08">Kanal 4</option>
<option value="10">Kanal 5</option>
</select><br><br>
<strong>Dato</strong><br>
<input class="forms" size="15" type="text" name="dato" value="<%=rs("dato")%>"><br><br>
<strong>Genre</strong><br>
<input class="forms" size="40" type="text" name="genre" value="<%=rs("genre")%>"><br><br>

<input class="formsknap_3" type="submit" value="Send" id=submit2 name=submit2></form>
</form><br><br><a  href="admin.asp?mode=tvguide_list">Tilbage</a>

               
          <td>
        </tr>
      </table>
<%

Else
Response.Write("<table cellpadding='0' cellspacing='0' width='98%'><tr><td>Du har ikke adgang til denne side</td></tr></table>")
End if
end if