المساعدة في تعديل كود تحميل ملف

السلام عليكم

اخواني لدي برنامج لرفع الملفات وتحمليها واستخدمت هذا الكود ولكن يقوم بعرض الملفات مباشرة دون ان تظهر رسالة حفظ ملف

فكيف يمكن تعديل الكود بحيث عند الضغط على الرابظ تظهر رسالة (( حفظ او فتح او الغاء الامر ))

  Dim conn As OleDbConnection
            Dim sql As OleDbCommand
            Dim dr As OleDbDataReader
            Dim filename As String
            Dim contenttype As String
            Dim id As Integer = Request.Params("id")
            conn = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & Server.MapPath("db/book.mdb"))
            sql = New OleDbCommand("select filename,contenttype from books where id=" & id, conn)
            conn.Open()
            dr = sql.ExecuteReader(CommandBehavior.SingleRow)
            If dr.Read Then
                filename = dr("filename")
                contenttype = dr("contenttype")
            End If
            dr.Close()
            sql = New OleDbCommand("update books set total_download=total_download+1 where id=" & id, conn)
            sql.ExecuteNonQuery()
            conn.Close()
            Response.ContentType = contenttype
            Response.AddHeader("Content-Disposition", "filename=" & filename)
            Response.WriteFile(Server.MapPath("upload/" & filename))
            Response.End()