Funktion virker ikke.

Har lavet en funktion til at hente teksten på det rigtige sprog, men den retunere intet....

Jeg har sikekrt klokket i det igen ;-)

Er der en der kan hjælpe med at få det til at virker ?

Her kaldes funktionen:
<% response.write tekst(dk,"1") %>

Og her er funktionen (er includeret øverst på siden.):
<%
Function tekst(lang,id)
 

' Databaseforbindelse
Set Conn_tekst = Server.CreateObject("ADODB.Connection")
DSN_tekst = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN_tekst = DSN_tekst & "DBQ=" & Server.MapPath("../db/estagel.mdb")
Conn_tekst.Open DSN_tekst

str_tekst_SQL = "Select * from sprog where id =" & id
Set rs_tekst = Conn_tekst.Execute(str_tekst_SQL)

If lang = "dk" then

rs_tekst("sprog_dansk")

End if

Conn_tekst.Close
Set Conn_tekst = Nothing

End Function
%>

Den kommer ikke med fejl men den sætter ej heller noget (teksten) ind...

På forhånd tak (igen)
Bongis