how to read japanese characters (multilingual characters) from a text file and save them in Access database ???

[asim]

HI All

i m trying to read a text file, having some japanese characters and saved as
UTF-8 encoding.

I m using ASP,FSO ... my code is below, plz make the required changes and
expalin :)

Dim ObjFso,thetextdata
Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
Set thetextdata = ObjFso.OpenTextFile("C:\Examples\test1.txt",1)
data = thetextdata.ReadAll
Set thetextdata = Nothing
Set ObjFso = Nothing

rs.open "test",con,1,3
rs.addnew
rs("adminname") = "testadmin"
rs("propname") = "test"
rs("propvalue") = data
rs.update
rs.close

response.write "Done"

after this only "?" question marks are stored in DB
PLz Help

[Manohar Kamath [MVP]]

Can you try something like:

Set thetextdata =ObjFso.OpenTextFile("C:\Examples\test1.txt",1, , -1)

The last "-1" value opens the file in unicode format.

--
Manohar Kamath
Editor, .netBooks
[url]www.dotnetbooks.com[/url]


"asim" <qazi@advcomm.net> wrote in message
news:uofb%23xJYDHA.2032@TK2MSFTNGP10.phx.gbl...

> HI All
>
> i m trying to read a text file, having some japanese characters and saved

as

> UTF-8 encoding.
>
> I m using ASP,FSO ... my code is below, plz make the required changes and
> expalin :)
>
> Dim ObjFso,thetextdata
> Set ObjFso = Server.CreateObject("Scripting.FileSystemObject")
> Set thetextdata = ObjFso.OpenTextFile("C:\Examples\test1.txt",1)
> data = thetextdata.ReadAll
> Set thetextdata = Nothing
> Set ObjFso = Nothing
>
> rs.open "test",con,1,3
> rs.addnew
> rs("adminname") = "testadmin"
> rs("propname") = "test"
> rs("propvalue") = data
> rs.update
> rs.close
>
> response.write "Done"
>
> after this only "?" question marks are stored in DB
> PLz Help
>
>