sqlite windows unable to insert - - asp-classic

Question

I'm seeing an error trying to insert new records to q sqlite3 db via Classic ASP, where updates and reads work fine.
ODBC driver does not support the requested properties.
/engine/includes/ajaxed/class_database/database.asp, line 160
which basically boils down to your standard:
connectionString = "DRIVER=SQLite3 ODBC Driver;Database=" & server.mappath("/site.db") & ";LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;
set connection = server.createObject("ADODB.connection")
connection.open(connectionString)
set aRS = server.createObject("ADODB.Recordset")
' error raised on next line
aRS.open tablename, connection, adOpenKeyset, adLockPessimistic, adCmdTable
Permissions are correct (basically that file has everyone full control, including IUSR), and I've had to change the db to no journalling due to this problem (Exception Message: Some kind of disk I/O error occurred); reads and updates to existing records are fine.
I am using the current version of the http://www.ch-werner.de/sqliteodbc/ 32-bit odbc driver.
I've tried setting other recordset options like (adOpenKeyset, adLockOptimistic); no luck, same error message. I've attempted a read of the sqliteodbc code to see what the supported properties /are/, but couldn't work it out.

Answer 1

The following code works for me:
Const adOpenKeyset = 1
Const adLockPessimistic = 2
Const adCmdTable = 2
db = "C:\test.db"
connectionString = "DRIVER=SQLite3 ODBC Driver;Database=" & db & _
";LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
Set conn = CreateObject("ADODB.Connection")
conn.Open connectionString
Set rs = CreateObject("ADODB.Recordset")
tablename = "a"
rs.Open tablename, conn, adOpenKeyset, adLockPessimistic, adCmdTable
cols = Array("id", "name")
values = Array(3, "baz")
rs.AddNew cols, values
rs.Update
Example:
C:\>sqlite3 test.db "CREATE TABLE a (id integer, name varchar(20));"
C:\>sqlite3 test.db "INSERT INTO a VALUES (1, 'foo');"
C:\>sqlite3 test.db "INSERT INTO a VALUES (2, 'bar');"
C:\>sqlite3 test.db "SELECT * FROM a;"
1|foo
2|bar
C:\>cscript //NoLogo C:\path\to\sample.vbs
C:\>sqlite3 test.db "SELECT * FROM a;"
1|foo
2|bar
3|baz