Sinon ma fonction ASP VB qui marche et que j'aimerai traduire en ASP JS...
[code] const adOpenStatic=3 const adLockOptimistic=3 Response.Write("Test injection") dim stream set stream = server.createObject("adodb.stream") stream.Open stream.Type = 1 stream.loadFromFile("C:\image.jpg")
dim conn, rs
set conn = server.createObject("adodb.connection") conn.open "Provider=OraOLEDB.Oracle;Data Source=********;" _ & "User ID=********;PASSWORD=********;Persist Security Info=True"
set rs = server.createObject("adodb.recordset")
conn.beginTrans
conn.execute "INSERT INTO SMGTESTBLOB (id, COLUMBLOB) " _ & "VALUES (1, empty_blob())" rs.open "SELECT COLUMBLOB FROM SMGTESTBLOB WHERE id = 1", _ conn, adOpenStatic, adLockOptimistic
rs.fields("COLUMBLOB").appendChunk(stream.read) rs.update rs.close
conn.commitTrans
[/code]
|