|  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
 |