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