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

s("Dutch text","French text")