substitui Set Inserir = Server.CreateObject("Adodb.Recordset")
Inserir.CursorLocation = 3
Inserir.CursorType = 2
Inserir.open "INSERT INTO monografia (data,titulo,autor,monografia) VALUES('"&data&"','"&titulo&"','"&autor&"','"&arquivo&"')",conexao
por
sql="INSERT INTO monografia (data,titulo,autor,monografia) VALUES('"&data&"','"&titulo&"','"&autor&"','"&arquivo&"')"
conexao.execute(sql) e testa