function fsConvertToUnicode(byval vsInput)dim Stream,lsOut,charset CharSet = "us-ascii" set Stream = Server.CreateObject("AdoDB.Stream") stream.Open Stream.Charset = charset Stream.Writetext vsInput,1 Stream.Position = 0 lsOut = Stream.ReadText Stream.Close Set Stream = Nothing fsConvertToUnicode = lsOutend function