FSO בעברית

שלום לתוכן

אני מנסה לקרא קובץ HTML עם עברית, אבל כשאני משתמש באובייקט המתאים, הכל יוצא סימני שאלה.

יצוין שהקוד טוב, כלומר הכל פועל כראוי, אבל הקידוד יוצא מחורבש. בעמוד עצמו הוא ב-WIN1255 וה CODEPAGE הוא 1255. LCID = 1033.

מצ"ב הקוד,
תודה רבה



                Set fs=Server.CreateObject("Scripting.FileSystemObject")
        

                If (fs.FileExists(server.mappath("../includes/names.asp")))=true  Then
                                
                     Set objTextStream = fs.OpenTextFile(server.mappath("../includes/names.asp"), 1, false, -2)    '1 = for reading
                '    response.Write(objTextStream.ReadAll)
                    NameText =   objTextStream.ReadAll
                
                    NameText = replace(NameText,"<BR>","    ")
                    response.Write(NameText)
                    objTextStream.Close
                    Set objTextStream = Nothing
                end if             
            set fs = nothing