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 = lsOut end function
|