Function s(Tnl,Tfr) If Session.Contents("language") = "nl" Then s = Tnl Else s = Tfr End If End Function s("Dutch text","French text")