s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";User ID=Admin;Password=;Extended Properties=dBase IV"
conn.Open (s)

var fileURL2 = new String(window.location.pathname);
pathhhh=fileURL2;
pathhhh=pathhhh.substr(0,pathhhh.lastIndexOf("\\")+1);

var conn = new ActiveXObject("ADODB.Connection");
s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathhhh & ";User ID=Admin;Password=;Extended Properties=dBASE IV";
/////s = "Provider=VFPOleDB;Data Source=" & pathhhh;
conn.Open (s);
conn.Execute("create table dbftable (ID_N int, dt date, info char(100))");
conn.Execute("insert into dbftable (ID_N , dt, info) values (1, '2010/05/31', 'abcde')");
conn.Close;

var WshShell = new ActiveXObject( 'WScript.Shell' );
var  connection = new ActiveXObject("ADODB.Connection"),recordset = new ActiveXObject("ADODB.Recordset");
 alert(pathhhh+"/"+"2003.dbf");
connection.Open("Provider=VFPOleDB;Data Source="+pathhhh+"2003.dbf");
try {

    connection.Execute("create table dbftable (ID_N int, dt date, info char(100))");
connection.Execute("insert into dbftable (ID_N , dt, info) values (1, '2010/05/31', 'abcde')");
} catch(e) {}

connection.Open("Provider=VFPOleDB;Data Source="+pathhhh+"2003.dbf;Extended Properties=dBASE IV;charset=866;");

conn.Execute "create table dbftable (ID_N int, dt date, info char(100))"
conn.Execute "insert into dbftable (ID_N , dt, info) values (1, '2010/05/31', 'abcde')"
conn.Close
Set conn = Nothing

connection.Execute("insert into ["+name_dbftable+"] ( ABCOUNT,DATE_D) " +
                    "values (  ["+ rs.fields(0).value+" ] , {^"+ rs.fields(1).value+"}");

connection.Open( "Provider=VFPOLEDB.1;Mode=ReadWrite;Data Type=DBF;Extended Properties=dBASE IV;Collating Sequence=RUSSIAN;CODEPAGE=866;DELETED=False;Data Source=" + pathhhh + "\\");

var WshShell = new ActiveXObject( 'WScript.Shell' );
var  connection = new ActiveXObject("ADODB.Connection"),recordset = new ActiveXObject("ADODB.Recordset");
try {
connection.Open( "Provider=VFPOLEDB.1;Mode=ReadWrite;Data Type=DBF;Extended Properties=dBASE IV;charset=866;DELETED=True;Data Source=" + pathhhh + "/"+"Макет.dbf");
 //alert("Присоединились");
}catch(e) {alert("Тупо не подсоединяюсь");
        //self.close();
        };

 /// залить туда из Excel
///////////////////////////////////////////////////////////////
	
        if(!rs.bof)
        {
            rs.MoveFirst()
            while(!rs.eof)
            {
               
                try { 
		//connection.Execute("insert into [" + pathhhh + "Макет.dbf] (CODE_FIRME, ABCOUNT) " +
                //    "values ( 10021, 1 )");
		//alert(pathhhh + "4_532019.DBF");
		connection.Execute("insert into " + pathhhh +  "4_532019.DBF (CODE_FIRME, ABCOUNT) " +
                    "values ( 10021, 1 )");

            
		 //alert("Присоединились");
		}catch(e) {//alert("Не вставляю");
		};
		
                rs.MoveNext()
            }
                
        }
        rs.Close();
        
               
    }catch(e) {//alert("Что-то пошло не так....");
        //self.close();
        };
connection.Close();