{NeoBook Function}
Version=5,80
Language=VBScript
Param=[%1]|Text|Param1
{End}
Function Utf8ToAnsi(utf8String)
    Dim objStream
    Set objStream = CreateObject("ADODB.Stream")

    objStream.Charset = "UTF-8"
    objStream.Open
    objStream.WriteText utf8String
    objStream.Position = 0
    objStream.Charset = "ISO-8859-1" ' ANSI charset

    Utf8ToAnsi = objStream.ReadText

    objStream.Close
    Set objStream = Nothing
End Function




publication.nbSetVar "[result]", Utf8ToAnsi( "[%1]" )
